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PRO7000 DC Motor Operator 

Manual forces, automatic limits 

New learn switch for learning the limits 

Code based on Flex GDO 



Notes : 



-- Motor is controlled via two Form C relays to control direction 

-- Motor speed is controlled via a fet (2 IRF540 , s in parallel) with a 

phase control PWM applies. 
-- Wall control (and RS232) are P98 with a redundant smart button and 

command button on the logic board 



Flex GDO Logic Board 

Fixed AND Rolling Code Functionality 
Lea r r. frcrr; keyless entry transmitter 
Posi-lock 

Turn on light from broken IR beam (when at up limit) 

Keyless entry temporary password based on number of hours or number 
of activations. (Rolling code mode only) 

GDO is initialized to a 'clean slate 1 mode when the memory is erased. 
In this mode, the GDO will receive either fixed or rolling codes. 
When the first radio code is learned, the GDO locks itself into that 
mode (fixed or rolling) until the memory is again erased. 

Roiling code derived from the Leaded67 code 

Using the 8K zilog 233 chip 

Timer interrupt needed to be 2X faster. 



Revision History 



Revision I . 1 : 

Changed light 
mcdes . 
Changed light 
block. 

Revisi en 2.2: 

-- Learning rolling code formerly erased fixed code. Mode is now 
determined by first transmitter learned after radio erase. 

Revision 1.3: 

-- Moved radio interrupt disable to reception of 20 bits. 

-- Changed mode of radio switching. Formerly toggled upon radio error, 

now switches in pseudo-random fashion depending upon value of 

125 ms t ime r . 

Revision 1.4: 

Optimized portion of radio after bit value is determined. Used 
relative addressing to speed code and minimize ROM size. 



from broken I?. bean to work in both fixed and rolling 
from IR beam to work only on beam break, net on beam 



Changed mode of learning transmitters. Learn command is now 

light- command, learn light is now light- lock, and learn open /close/ 

stop is lock-command . (Command was press light, press command, 

release light, release command, worklight was press light, press command, 

release command, release light, o/c/s was press lock, press command, 

release command, release lock. This caused D0G2 to reset; 
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Revision 1.6: 

— Light button and light transmitter now ignored during travel. 
Switch data cleared only after a command switch is checked. 

Revision 1 . 7 : 

— Rejected fixed mode (and fixed mode test) when learning light and 
open/close/stop transmitters. 

Revision 1.8: 

— Changed learn from wall control to work only when both switches are 
held. Modified force pot. read routine (moved enabling of blank 
time and disabling of interrupts; . Fixed mode now learns command 
with any combination of wall control switches. 

Revision 1 . S : 

— Changed PWM output to go from 0-50% duty cycle. This eliminated the 
problem of PWK interrupts causing problems near 100% duty cycle. 
THIS REVISION REQUIRES A HARDWARE CHANGE. 

Revision 1.9A: 

Enabled ROM checksum;. Cleaned up documentation. 

Revision 2.0: 

-- Blank time noise immur.it i ty . If noise signal is detected during blank time the date 
already recieved is net thrown out. The data is retained, and the noise 
pulse is identified as such. The interrupt is enabled to contine to look 
for the sync pulse. 

Revision 2. OA: 

-- On the event that the noise pulse is of the same duration as the sync pulse, 
the time between sync and first data pulse (inactive time) is measured. The 
inactive time is 5.14ms fcr billion code and 2.4ms for rolling code. If it is 
determined that the previously received sync is indeed a noise pulse, the pulse 
is thrown out and the mitre- ccntinuies to look for a sync pulse as in Rev. 2.0. 

Revision 2.1: 

— To make the blank time more impervious to noise, the sync pulses are 
differentiated between. Fixed max width is 4.6ms, roll max width is 2.3ms. 
This is. Simula r to the inactive tine check done in Rev. 2. OA. 

Revision 2.2: 

The worklight function; when the I?, bear, is broken ana the door is at the up limit 
the light will turn or. fcr 4.5 min. This revision allows the worklight function to 
be enabled and disabled by the user. The function will come enabled from the factory. 
To disable, with the licht off press and hold the light button fcr 7 sec. The light will 
come on and after " sec" the function is disabled the light will turn off. To enable the 
function, turn the light on, release the button, then press and held the light button 
down for 7 sec. The light will turn eff and after the function has been enable in 7 sec. 
the light will turn on. 

Revision 3.0: 

— Integrated in functionality for Siminor rolling code transmitter. The Siminor 
transmitter may be received whenever a C code transmitter may be received. 
Siminor transmitters are able to perform as a standard command or as a light 
control transmitter, but net as an cpen/close/stop transmitter. 

Revision 3.1: 

— Modified handling of roiling code counter (in mirroring and adding) to improve 
efficiency and hopefully kill all short cycles when a radio is jammed on the 
air . 



PRC 7 000 



Revision 0.1: 

Removed physical limit tests 

Disabled radic temporarily 

Put in sign bit test fcr limits 

-- Automatic liicits wcrkinc 



Page 2 of 97 



J 



Revision 0.2: 

— Provided for traveling up when too close to limit 
Revision 0.3: 

— Changed force pot. read to new routine. 

— Disabled Tl interrupt and all old force pot. code 

— Disabled all RS232 output 



Revision 0.4: 

Added in (veerrrry) rough force into pot. read routine 
Revision 0.5: 

— Changed EE PROM in comments to add in up limit, last operation, and 
down limit. 

— Created OnePass register 

Added in limit read from nonvolatile when going to a moving state 

— Added in limit read on power-up 

— Created, passcounter register to keep track of pass point (s) 

— Installed basic wake-up routine to restore position based on last state 

Revision 0.6: 

Changed RP^ time read to routine used in P96 to save RAM 
-- Changed operation of RPK f creed up travel 
-- implemented pass print fcr one-ps s s -point travel 

Revision 0.7: 

-- Changed pass point from single to multiple (no EEPROK support) 
Revision C.8: 

— Changed all SKIPRADIO loads from OxFF to NOEECOMM 

— Installed EEPROK support for multiple pass points 

Revision 0.9: 

-- Changer state machine tc handle wake-up (i.e. always head towards 
the lowest pass point to re-orient the GDC} 

Revision G . 10 : 

Changed the AC line input routine tc work off full-wave rectified 
AC coming in 



Revision C . 1 1 : 

— Installed the phase control fcr meter speed control 



Revision C.12: 

-- Installed traveling down if toe near up limit 
-- Installed speed-up when starting travel 
Installer slow-down when ending travel 

Revision 0.13: 

-- Re-activated the C code 

Revision 0.14: 

Added in conditional assembly for Siminor radio codes 

Revision 0 . 15 : 

— Disabled old wail control code 

— Changed all pins tc conform with new layout 
Removed unused constants 

Commented out old wall control routine 
-- Changed code to run at 6MHz 

r.evi sirr. C . 1 6 

-- Fixer burs in Flex radio 



?.e-er.aeler clr" wall centre!. Changed command charging time to 12 ms 
to fix FMEA problems with IR protectors. 

Revision 0.16 
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— Turned on learn switch connected to EE PROM clock line 

Revision 0.19 

Eliminated unused registers 

— Moved new registers cut of radio group 
-- Re-enabled radio interrupt 

Revision 0.20 

— Changed limit test to account for "lost" position 
-- Re-wrote pass point routine 

Revision C.21 

Changed limit tests in state setting routines 
Changed criteria for looking for lost position 
Changed lost operation tc stop until position is known 

Revision 0.22: 

— Added in L_A_C state machine to learn the limits 

— Installed learn- command to go into LAC mode 

-- Added in command button and learn button jog commands 
Disabled limit testing when in learn mode 

— Added in LED flashing for in learn mode 

— Added in EVERYTHING with respect to learning limits 
-- NOTE: LAC still isn't working properly!!! 

Revision 0.22: 

— Added in RS232 functionality over wall control lines 
Revision 0.24: 

-- Touched up RS2 32 over wall control routine 

-- Removed 50Kz force table 

-- Added in fixes tc LAC state machine 

Revision C.25: 

Added switch set and release for wail control (NOT smart switch) 
into RS232 commands (Turned debouncer set and release in to subs) 
Added smart switch into RS232 commands (smart switch is also a sub) 

-- Re-enabled pass point test in • : ' RS232 command 

-- Disabled smart switch scar. when , in RS232 mode 

-- Ccrrected relative references in debouncer subroutines 

-- RS2 3 2 ' F ' command still needs to be fixed 

Revision C.26: 

Added in max. force opera tier, until motor ramp- up is done 
-- Added in clearing cf slowdown flag in set_any routine 
-- Changed RPK time cut from 2C to 60 ms 

Revision 0.2": 

Switched phase control to off, then on (was on, then off) inside 

each half cycle cf the AC line (for noise reduction) 
-- Changed from 4 0ms unit max. period to 32 (will need further changes) 
-- Fixed bug in force ignore during ramp (previously jumped from down to 

up state machine ! ) 

-- Added in complete force ignore at very slow part of ramp (need to change 

this tc ignore when very close to limit) 
-- Removed that again 

-- Bug fix — changed fcrce skip during ramp-up. Before, it kept counting 
down the force ignore timer. 

Revision 0.28: 

Modified the wall control documentation 

Installed clinking the w ill ctntrcl on an IR reversal instead cf the 
wor kiight 

-- Installed blinking the wall control when a pass point is seen 

Revision 0.29: 

Changed max. RPK timeout tc 100 ms 
Fixed wall ccntrcl blink hue 
Rai sen minimum. sc?ed setting 
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NOTE: Forces -still need to be set to accurate levels 
Revision 0.30: 

— Removed ' ei 1 before setting of peon register 

— Bypassed slow-down to limit during learn mode 

Revision 0.31: 

Changed force ramp to a linear FORCE ramp, not a linear time ramp 
Installed a look-up table to make the ramp more linear. 
-- Disabled interrupts during radio pointer match 
-- Changed slowdown flag to a up-down-stop ramping flag 

Revision 0.32: 

Changed down limit to drive lightly into floor 

— Changed down limit when learning to back off of floor a few pulses 

Revision 0.33: 

— Changed max. speed to 2/3 when a short door is detected 
Revision 0.34: 

— Changed light timer to 2.5 minutes for a 50 Hz line, 4.5 minutes for 

a 60 Hz line. Currently, the light timer is 4.5 minutes WHEN THE UNIT 
FIRST POWERS Ur . 

Fixed prcbleir. with leaving P.? set to an extended group 
Revision 0.35: 

Changed starting position of pass point counter to 0x30 
Revision 0.36: 

-- Changed algorithm, for finding down limit to cure stopping at the floor 
during the learn cycle 

— Fixed bug in learning limits: Up limit was being updated from EE FROM 
during the learn cycle ! 

-- Changed method of checking when limit is reached: calculation for 

distance tc limit is now ALWAYS performed 
-- Added in skipping of limit test when position is lost 

Revision 0.37: 

-- Revised minimum travel distance and short door constants to reflect 
approximately 10 R?M pulses / inch 

Revision 0.36: 

-- Moved slowstart number closer tc the limit. 
-- Changed backoff number from 1 C to 6 

Revision 0.35: 

Changed backoff number from 8 to 12 

Revision 0.4C: 

-- Changed task switcher to unburden processor 

Consolidated tasks G and 4 
-- Took extra unused code out cf tasks 1, 3, 5, 7 
-- Moved aux light and 4 ms timer into task 6 

Put state machine into task 2 only 
-- Adjusted autc_delay, mctdel, rpir._time_out, f orce_ignore, motor_timer, 

obs_count for new state machine tick 
-- Removed force_pre prescaler (no longer needed with 4ms state machine) 
-- Moved updating of obs_count to one ms timer for accuracy 
-- Changed autoreverse delay timer into a byte-wide timer because it was 

only storing an 8 bit number anyways... 

— Changed flash delay and light timer constants to adjust for 4ms tick 

Revision 0 . 4 I 

-- Switched back to 4 KHz operation tc account for the fact that Ziiog's 
Z r c ~ 3 2 C7? wcr.'t run at 6MH z reliably 

Revision 0.42: 

-- Extended RPM timer s: that it could measure from 0 - 524 ms with 
a resolution cf 8us 
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Revision 0.43: 

— Put in the new look-up table for the force pots (max RPM pulse period 
multiplied by 20 to scale it for the various speeds) . 

— Removed taskswitch because it was a redundant register 

— Removed extra call to the auxlight routine 

— Removed register 'temp* because, as far as I can tell, it does nothing 

— Removed light_pre register 

~ Eliminated •phase 1 register because it was never used 

— Put in preliminary divide for scaling the force and speed 

Created speedlevei AND IDEAL speed registers, which are not yet used 

Revision 0.47: 

Undid the work of revisions 0.44 through 0.46 
-- Changed ramp-up and ramp-down to an adaptive ramp system 

— Changed force compare from subtract to a compare 
Removed force ignore during ramp (was a kludge) 

— Changed max. RPM time out to 500 ms static 

— Put WDT kick in just before main loop 

— Fixed the word-wise T0EX7 register 

— Set default RPM tc max. to fix problem of not ramping up 

Revision 0.48: 

Took out adaptive ramp 

— Created look-ahead speed feedback in RPM pulses 

Revision 0.49: 

-- Removed speed feedback (again) 

NOTE: Speed feedback isn't necessarily impossible, but, after all my 
efforts, I've concluded that the design time necessary (a large 
amount) isn't worth the benefit it gives, especially given the 
current time constraints of this project. 

— Removed RPM_SET_DI FF lo and hi registers, along with I DEAL_S PEE D lo 
and hi registers (only need them for speed feedback) 

-- Deleted speedlevei register { nc longer needed) 

-- Separated the start of slowdown for the up and down directions 
-- Lowered the max. speed for short doors 

— Set the learn button to NOT erase the memory when jogging limits 

Revision C . 5 0 : 

-- Fixed the force pot read to actually return a value of 0-64 

-- Set the msx. RPM period time out tc be equivalent to the force setting 

Revision C . 51 : 

— Added in F 2 M_ SHADOW register to make the following possible: 

— Added in flashing warning light (with auto-detect) 

Revision 0.52: 

— Fixed the variable worklight timer to have the correct value on 
power -up 

— Re-enabled the reason register and stackreason 

— Enabled up limit to back cff by one pulse if it appears to be 
crashing the up stop bolt. 

— Set the door to ignore commands and radio when lost 
-- Changed start of down ramp to 220 

-- Changed backoff from 12 to 9 

— Changed drive-past of down limit to 9 pulses 
Revision 0.53: 

— Fixed RS232 '9' and ' F ' commands 

— Implemented RS232 ' K ' command 

-- Removed ' M ' , '?', and ' S ' co— ar.ds 

-- Set the learn LEU to always turn off at the end of the 
learn limits mode 

Revision 0.54: 

— Reversed the direction of the pot. read to correct the direction 
of the mi r. . and max. forces when dialing the pots. 

— Added in MT J" command (currently does nothing) 
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— Added in "V" command to read force pot. values 
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Revision 0.55: 

— Changed number of pulses added in to down limit from 9 to 16 
Revision 0.56: 

— Changed backoff number from 16 back to 9 (not 8!) 

— Changed minimum force/speed from 4/20 to 10/20 

Revision 0.57: 

— Changed backoff number back tc 16 again 

— Changed minimum force/speed from 10/20 back to 4/20 
-- Changed learning speed from 10/20 to 20/20 

Revision 0.58: 

— Changed learning speed from 20/20 to 12/20 (same as short door) 
Changed force to max. during ramp-up period 

— Changed RPK timeout tc a static value of 500 ms 

— Changed drive-past of limit from 1" to 2" of trolley travel 
(Actually, changed the number from 10 pulses to 20 pulses) 

-- Changed start of ramp-up from 1 to 4 (i.e. the power level) 

— Changed the algorithm when near the limit -- the door will no 
longer avoid going toward the limit, even if it is too close 

Revision 0.59: 

— Removed ramp-up bug from aut ere verse of GDO 
Revision C.60: 

-- Added in check for pass point counter of -1 to find position when lost 
Change in waking up when lost. GDO now heads toward pass point only on 
first operation after a power outage. Heads down on all subsequent 
operations . 

Created the "limits unknown" fault and prevented the GDO from traveling 
when the limits are net set at a reasonable value 
-- Cleared the fault cede or. entering learn limits mode 

— Implemented RS2 32 'H' command 

Revision 0.61: 

-- Changed limit test to lock for trolley exactly at the limit position 

-- Changed search for pass point tc erase limit memory 

-- Changed setup pes i tier, tc 2" above the pass point 

-- Set the iearr. LET te turn off whenever the L_A_C is cleared 

-- Set the iearr. limits mode tc shut off whenever the wcrkiight times out 

Revision 0 . 62 : 

-- Removed test for being exactly at down limit (it disabled the drive into 
the limit feature- 

-- Fixed bug causing the GDC tc ignore force when it should aut ore verse 
-- Added in ignoring commands when lost and traveling up 

Revision 0.63: 

-- Installed MinSpeec register tc vary minimum speed with force pot 
setting 

-- Created main loop routine to scale the min speed based on force pot. 
-- Changed drive-pest of down limit from 20 to 30 pulses (2 M tc 3") 

Revision 0.64: 

-- Changed learning algorithm! tc utilize block. (Changed autoreverse to 

add in 1/2" to position instead of backing the trolley off of the floor) 
-- Enabled ramp-down when nearing the up limit in learn mode 

Pevisicn C.65: 

Put special case in speed check tc enable slow down near the up limit 
Revision C.66: 

Changed ramp-up : Ramping up of speed is now constant -- the ramp-down 
is the only ramp affected by the force pot. setting 
-- Changed ramp-up and ramp -down tests to ensure that the GL3 will get S? 
tc the minimum speed when we are inside the ramp-down zone (The above 
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change necessitated this) 

— Changed down limit to add in 0.2" instead of 0.5" 

R vision 0.67: 

— Removed minimum travel test in set_arev_state 

— Moved minimum distance of down limit from pass point from 5? to 2" 

— Disabled moving pass point when only one pass point has been seen 

Revision 0.68: 

— Set error in learn state if nc pass point is seen 
Revision 0.69: 

Added in decrement of pass point counter in learn mode to kill bugs 
Fixed bug: Force pots were being ignored in the learn mode 
Added in filtering of the RPM (RPM_FILTER register and a routine in 
the one ms timer) 
-- Added in check of RPM filter inside RPM interrupt 

— Added in polling RPM pin inside RPM interrupt 
Re-enabled stopping when in learn mode and position is lost 

Revision 0.70: 

— Removed old method of filtering RPM 

— Added in a "debouncer" to filter the RPM 

Revision 0.7i: 

Changed "debouncer" tc automatically vector low whenever an RPM pulse 
is considered valid 

Revision C.72: 

Changed number of pulses added in to down limit to 0. Since the actual 
down limit test checks for the position to be BEYOND the down limit 
this is the equivalent cf adding one pulse into the down limit 

Revision C . 7 4 : 

Undid the work cf rev. C.73 

— Changed number of pulses added in to down limit to 1. Noting the comment 
in rev. 0.72, this means that we are adding in 2 pulses 

Changed learning speed to vary between 8/20 and 12/20, depending upon 
the force pot. setting 

Revision 0.75: 

-- Installed power -up chic 1Z cn F22 , P23, P24, and P25 

Note: ID is cr. F24, F22, ar.c F22 . F25 is a strobe to signal valid data 
First chip ZZ is DC 1 -with strobe, it's 1001) 
-- Changed set_ar,y routine to re-enable the wall control just in case we 

stopped while the wall centre! was being turned off (to avoid disabling 

the wall control completely;. 

Changed speed during learr. no:e tc be 2/3 speed for first seven seconds, 
then to slow down tc the minimum speed to make the limit learning the same 
as operation during normal travel. 

Revision 0.76: 

-- Restored learning tc operate cniy at 60% speed 
Revision 0.77: 

— Set unit to reverse off cf floor and subtract 1" of travel 

— Reverted to learning at 40% - 60% of full speed 

Revision 0.78: 

— Changed rampflag to have a constant for running at full speed 
Used the above change tc simplify the force ignore routine 

— Also used it to change the RPM time out. The time out is now set equal 
to the pet setting, except during the ramp up when it is set tc 500 ms . 

— Changed highest force pet setting to be exactly equal to 500ms. 

Revision C ."S: 

Changed setup routine to reverse off block (yet again) . Added in one pulse 
Revision i.0: 
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-- Enabled RS232 version numoer return 

— Enabled ROM checksum. Cleaned up documentation 

Revision 1.1: 

-- Tweaked light times for 6.152 ms prescale instead of 8.0 ms prescale 

— Changed compare statement inside setvarlight to 'uge* for consistency 

— Changed one-shot low time tc 2 ms for power line 

Changed one-shot low time to truly count falling-edge-to-falling-edge 

Revision 1.2: 

Eliminated testing for lost GDO in set_up_dir_state (is already taken 
care of by set_dn_dir_state ) 

Created special time fcr max. run motor timer in learn mode: 50 seconds 
Revision 1.3: 

— Fixed bug in set_any to fix stack imbalance 
Changed short door discrimination point to 78" 

Revision 1.4: 

-- Changed second ' di' to 'ei' in KnowSimCode 

-- Changed IR protector to ignore for first 0.5 second of travel 

-- Changed blinking time constant tc take it back to 2 seconds before travel 

-- Changed blinking code to ALWAYS flash during travel, with pre-travel flash 

when module is prcperiy detected 

Put in bounds checking on pass point counter to keep it in line 

— Changed driving into down limit to consider the system lost if floor not seen 

Revision 1.5: 

-- Changed blinking of wall control at pass point to be a one-shot timer 
to correct problems with bad passpoint connections and stopping at pass 
point tc cause wall control ignore. 

Revision 1.6: 

-- Fixed blinking cf wall control when indicating IR protector reversal 

to give the blink a true 50* duty cycle. 
-- Changed blinker output to output a constant high instead of pulsing. 
-- Changed P2S_POR tc 1G10 (Indicate Siminor unit) 

Revision 1.7: 

Disabled Si miner Radio 
-- Changed F2S_?0?. tc IC-ll -Indicate Lift-Master unit) 

-- Added in cne more conditional assembly point to avoid use cf simradic label 
Revision 1.5: 

-- Re- enabled Siminor Radio 

-- Changed F2S_POR back to 1010 (Siminor) 

-- Re-fixed blinking cf wall control LED for protector reversal 
-- Changed blinking cf wall control LET- fcr indicating pass point 
-- Fixed error in cal oulat ins<. highest pass point value 
-- Fixed error in calculating lowest pass point value 

Revision 1.9: 

— Lengthened blink time for indicating pass point 

— Installed a max. travel distance when lost 

Removed skipping up limit test when lost 
Reset the position when lost and force reversing 
Installed sample of pass point signal when changing states 

Revision 2.0: 

Moved main loop test for max. travel distance (was causing a memory 
fault before) 

Revision 2.1: 

— Changed limit test to use 11000000b instead of 10000000b to ensure 
only setting up lin.it when we ' re actually close. 

Revision 2.2: 

Changed minimum speed scaling tc move it further down the pot. rotation. 
Formula is now: (i force - 24} / 4) + 4, truncated to 12 
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— Changed max. travel test to be inside motor state machine. Max. travel 
test calculates for limit position differently when the system is lost. 
Reverted limit test to use 10000000b 

— Changed some jp's to jr's to conserve code space 

Changed loading of reason byte with 0 to clearing of reason byte (very- 
desperate for space) 

Revision 2.3: 

Disabled Siminor Radic 

— Changed P2S_P0R to 1011 (Lift-Master) 

Revision 2.4: 

Re-enabled Siminor Radio 

— Changed P2S_POR to 1010 (Siminor) 

— Changed wall control LED to also flash during learn mode 

-- Changed reaction to single pass point near floor. If only one pass point 
is seen during the learn cycle, and it is too close to the floor, the 
learn cycle will now fail. 

-- Removed an ei from the pass point when learning to avoid a race condition 

Revision 2.5: 

-- Changed backing off cf up limit to only occur during learn cycle. Backs 
off by 1/2" if learn cycle force stops within 1/2" of stop bolt. 
Removed considering system lest if floor not seen. 
Changed drive-past of down limit to 36 pulses (3") 

Added in clearing of power level whenever motor gets stopped (to turn off 
the FE7 ' s sooner) 

-- Added in a 4 0ms delay (using the same MOTDEL register as for the traveling 
states: to delay the shut-off of the motor relay. This should enable the 
motor to discharge some energy before the relay has to break the current 
flow) 

— Created STOPNOFLASK label it locks like it should have been there all along 

— Moved incrementing MOTDEL timer into head of state machine to conserve space 

Revision 2.6: 

— Fixed back-off of up limit to back off in the proper direction 

— Added in testing for actual stop state in back-off (before was always backing 
off the limit) 

-- Simplified testing for light being on in 'set any' routine; eliminated lights 
register 

Revision 2.7: (Test-only revision) 

-~ Move - ei when testing fcr down limit 

Eliminated testing fcr negative number in radio time calculation 

Installed a primitive debcuncer fcr the pass point (out of paranoia: 
-~ Changed a pass point in the down direction to correspond to a position cf 1 

Installed a temporary echo cf the RPM signal on the blinker pin 

Temporarily disabled ROM checksum. 

Moved three subroutines before ada.=?ss 0101 to save space {2. IB) 
Framed lock up using upforce and dnforce registers with di and ei to 
prevent corruption of upforce or dnforce while doing math (2.7C) 
-- Fixed error in definition cf pot_count register (2.7C) 

— Disabled actual number check of RPM perdod for debug (2.7D) 

— Added in di at test_up_sw and test_dn_sw for ramping up period (2. 7D) 
Set RPM_TIME_OUT to always be loaded to max value for debug (2.7E) 

— Set RPMJTIME_0 : JT to round up by two instead of one (2.7F) 

— Removed 2.7E revision (2.7F) 

Fixed RPM_TIME_OUT to round up in both the up and down direction (2 . 7G) 
-- Installed constant RS232 output of RPM__TIME_OUT register (2.7H) 
-- Enabled R6232 'IT and 'V commands (2.71) 

— Disabled consant output of 2 . 7H (2.71) 

-- Set RS232 'V tc output RFM_7IME_OU7 ( 2 . 7 1 ) 

— Removed disable cf actual RPM number check (2. 7 J) 

— Removed pulsing tc indicate RPM interrupt (2. 7 J) 
2.-- note -- need to remove ' u ' command function 

Revision 2.8: 

-- Removed interrupt -treble before resetting rpm_time_cut . This will introduce 
roughly 30us of extra delay in time measurement, but should take care of 
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nuisance stops. 

— Removed push-ing and pop-ing of RP in tasks 2 and 6 to save stack space (2.8B) 

— Removed temporary functionality for 1 u' command (2.8 Release) 
-- Re-enabled ROM checksum (2.8 Release) 
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01 


AC 


DO 


VJ £. 


Al 


DO 


03 


Al 


DO 


04 


A2 


Dl 


05 


A2 


Di 


06 


A3 


Di 


v >' 


A3 


Dl 


06 


A4 


D2 


09 


A4 


D2 


OA 


A5 


D2 


0B 


A5 


D2 


OC 


A6 


D3 


0L 


A€ 


D3 


OH 


A" 


£3 


OF 


A" 


D3 


1 j 


AS 


D4 


1 n 


Ar 


_ 


12 


A9 


D4 


13 


A9 


D4 


14 


A10 


C5 


15 


A10 


D5 


16 


All 


Lz 


17 


All 


D5 


18 


B 


Do 


19 


B 


D6 


1A 


C 


D€ 


IB 


C 


D6 


1C 


unused 


D7 


ID 


unused 


r "? 


IE 


unused 


D7 


IF 


unused 


D7 


20 


unused 


DTCP 


21 


unused 


DTCID 


22 


unused 


DTCR1 


23 


unused 


DTCr.2 


2 4 


unused 


DT CT 


25 


unused 


Duration 



Multi-function transmitters 



26 



unusea 



Keyless permanent 4 
Keyless ID code 
Keyless Roll value 



digit code 



Radio type 

"77665 
00 = 



Keyless temporary 
Keyless temporary 
Upper by-e 
Lower byte 

44 33221100 
CMD 01 = LIGHT 



A digit code 

duration 

= Mode: hour* 

= # cf hours fi 



::vcucns 
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21 unused Fixed 



28 CYCLE COUNTER 1ST 16 BITS 

2 9 CYCLE COUNTER 2ND 16 BITS 

2 A VACATION FLAG 



S 

10 = OPEN /CLOSE / STOP 
/ roil 

Upper word = fixed/roll byte 
Lower word = unused 



Vacation Flag , Last Operation 
0000 XXXX in vacation 

1111 XXXX out of vacation 



2E A MEMORY ADDRESS LAST WRITTEN 

2C IRLIGHHTADDR 4-22-97 

2D Up Limit 

2E Pass point counter / Last operating state 

2F Down Limit 



3C-3F Force Back trace 



RS2 32 DATA 



REASON 

00 COMMAND 

10 RADIO COMMAND 

2 0 FORCE 

30 AUX OBS 

4 0 A REVERSE DELAY 

50 LIMIT 

60 EARLY LIMIT 

70 MOTOR MAX TIME , TIME OUT 

80 MOTOR COMMANDED OFF RPM CAVSING AREV 

90 DOWN LIMIT KITH COMMAND HELC 

AO DOWN LIMIT WITH THE RADIO HELD 

B0 RELEASE OF COMMAND OR RADIO AFTER A FORCED 

UP MOTOR ON DUE TO RPM PULSE WITHG MOTOR OFF 



STATE 

00 AUT ORE VERSE DELAY 

01 TRAVELING U? DIRECTION 

0 2 AT THE " r LIMIT A* . - S T C r — - 

03 ERROR RESET 

04 TRAVELING DOWN DIRECTION 

05 AT THE DOWN LIMIT 

06 STOPPED IN MID Tr^.VEL 



DIAG 



1) AOBS SHORTED 

2) AOBS OPEN / MISS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 

5) CALL DEALER 

NO RPM IN THE FIRST SECOND 

6) RPM FORCED A REVERSE 
1) T ' KI T S NOT LEARN E I YET 



DOG 2 
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DOG 2 ISA SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



Conditional Assembly 



GLOBAL S ON 

Yes .equ 1 

No -equ 0 

TwoTh irty Three .ecu Yes 

UseSiminor .ecu Yes 



Enable a symbol file 



EQUATE STATEMENTS 



check_sum_value 


.equ 


0€5H 


f 


CRC 


checksum for ROM code 


TIMER_1_EN 


. ecu 


OCH 




TMr\ 


mask to start timer 1 


MOTOR! I ML 


. ecu 


( 2 ~ 0 0 C / 4 ' 


r 


Max 


. run for motor - 2~l sec (4 ms tick) 


LACTIME 


. equ 






Delay before learning limits is 0.5 seconds 


LEARNT I ME 


. equ 


(50000 / 4} 


t 


Max 


. run for motor in learn mode 


PWM CHARGE 


. equ 


00H 




PWM 


state for old force pots. 


LIGHT 


. equ 


OFFH 




Flag for light on constantly 


LIGHT_ON 


. ecu 


100000005 




P0 


pin 


turning on worklight 


MOTOR U? 


.equ 


0100000GE 




P0 


pin 


turning on the up motor 


MOTOR_DN 


. equ 


001 0000 0B 




P0 


pin 


turning on the down motor 


UF OUT 


. equ 


r, r- " ' f, *" r r. — 
^ - — - ^ - y 




F3 


pin 


output for up force pot . 


DOWN OUT 


. equ 


0C 2 000005 




P5 


pin 


output for down force pot . 


DOWN COM? 


. equ 


00000001E 


I 


P0 


pin 


input for down force pot . 


UF_COMP 


. equ 


00000010E 


t 


P0 


pin 


input for up force pot. 


FALSEIR 


. eq J 


0 0 0 0 0 o •:• 2 E 


/ 


P2 


pin 


for false AOBS output 


LINEIKFIN 


. equ 


OOOlOCOCr 


i 


P2 


pin 


for reading in AC line 


FPcint ?or: 


. ecu 


pZ 




Por 


t for pass point input 


PassPc ir.t 


. ecu 






Eit 


ma 


sk for pass point input 


PhaseFrt 


. ecu 




i 


Pert for phase control output 


PhaseHigh 


. ecu 


COCIOOCCr 




Fir 


: for controlling FET 1 s 


CHARGE_SV; 


. ecu 


10C X00CE 




P3 


Fin 


for charging the wall control 


DI S SW .equ 


C1G00C 




; P3 Pin 


fo 


r di 


scharging the wall control 


SWITCHES! 


. equ 


000010005 


'» 


P0 


Pin 


for first wall control input 


SWITCHES2 


. ecu 


000001005 




P0 


Pin 


for second wall control input 



P01M_INIT 
P2M_INIT 
P2M_POr. 
F3M_INIT 

P01S_INIT 

P2S_INIT 

P2S_POR 



.ecu 00000I01E 

.ecu OlClllOCr 

.ecu 010000005 

.equ QOGOCeilE 

.equ 10000000B 

.equ 00000110B 

.equ 0C101010B 

.e=u ::::::::= 



set mode p00-p03 in p04-p07 out 

P2M initialization for operation 

F2M initialization for output of" chip ID 

set port3 p30-p33 input ANALOG mode 

Set init. state as worklight on, motor off 
Init p2 to have LED off 

P2 init to output a chip ID (P25, P24, P23, P22) 
Init c3 to have everything eff 



BLINK FIN 



Pin which controls flasher module 



F2K_ALLOwT£ 
P2M ALL INS 



.ecu 

. ecu 010110005 



Pins which need to be refreshed ;c outputs 
Pins which need to be refreshed tc inputs 



RsPerHalf 



. ecu 



104 



RS232 period 1200 Baud half time 4i6u£ 
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i 



RsPerFull 




. equ 


208 


/ 


RS232 period full time 832us 






. equ 


00 


/ 


RS232 Deriod 1 . 22 unit times 1 024ms (00 


r LMjM 




. equ 


OFFH 


/ 




tfORKLIGHT 




. equ 


LIGHT_ON 


i 


Pin for toggling state of worklight 


PPOINTPULSES 
• 


. equ 


897 




/ Number 


of RPM pulses between pass points 


SetupPos 




.equ 


(65535 - 20) 


; Setup position 2" above pass point 


CMD TEST 




. equ 


no 




States for old wall control routine 


WL TEST 




. equ 


01 






VAC TEST 




. equ 


02 






CHARGE 




. equ 


03 






RSSTATUS 




. equ 


04 


/ 


Hold wall control ckt. in RS232 mode 


WALLOFF 




. equ 


05 


/ 


Turn off wail control LED for blinks 


AUTO REV 




. equ 


00H 


i 


States for GDO state machine 


UP DIRECTION 


. equ 


01H 








UP_POSITION 


. equ 


02H 








DN DIRECTION 


. equ 


04 H 








DN POSITION 


. equ 


05K 








STOP 




.equ 


0 6H 






CMD SW 




.equ 


L 1 h 


t 


Flags for switches hit 


LIGHT SW 




. equ 


02 K 






VAC_SW 




. equ 


04H 






TRUE 




. equ 


OFFH 


/ 


Hpnpri c ron^tants 

lit i x i> v^- tun 


FALSE 




. equ 


00H 






FIXED MODE 




. equ 


lOlulClOb 




/Fixed mode radio 


ROLL_MODE 




. equ 


01010101b 




; Rolling mode radio 


FIXED TEST 




. equ 


00000000b 




; Unsure of mode — test fixed 


ROLL TEST 




. equ 


OOOOOOClb 




/Unsure of mode test roil 


FIXED MASK 




. equ 


FIXED TEST 




;Bit mask for fixed mode 


ROLL_MASK 




. equ 


ROLL_TEST 




;Bit mask for rolling mode 


FIXTHR 


. equ 


02H 






Fixed code decision threshold 


DTHR 


.equ 


02H 




/Rolling code decision threshold 


FIXSYNC 




. equ 


06H 




/Fixed code sync threshold 


DSYNC 




. equ 


04K 




/Rolling code sync threshold 


FIX5ITS 




. equ 


— j- 




/Fixed code number of bits 


DEITS 




.ecu 






/Rolling code number of bits 


EQUAL 




.equ 


00 




/Counter compare result constants 


BACKWIN 




. ecu 


'rr. 




/ 


FWDWIK 


. equ 


6 OH 




f 




OUTOFWIK 




. equ 


OFFH 


• 


' 


AddressCounter 


. equ 


27H 






Address APoint 


er 


.equ 


2EH 






CYCCOUN7 




. equ 


26H 






TOUCH ID 




. equ 


21K 




/Touch code ID 


TOUCHROLL 




. ecu 


22H 




/Touch code roll value 


TOUCHPERK 




.equ 


2 OH 




/Touch code permanent password 


TOUCHTEMP 




. equ 


24H 




/Touch code temporary password 


DURAT 




• equ 


2 5H 




/Touch code temp, duration 


VERSIONNUM 




. equ 


088H 




/Version: PRO7000 V2 . 8 


/4-22-9^ 












IRLIGK7ADD?. 




. EQV 


2 CH 




/work light feature or. cr off 


DISABLED 




. ECU 


OGH 




/ 00 = disabled, FF = enabled 


RTYPEADD? 




. ecu 


2 €H 




/Radio transmitter type 


VACAT I ON AD DR 


. equ 


2 AH 








MODEADDr; 




. ecu 


2 7H 




/Rclling/Fixeci mode .in EE? ROM 



/High byte = don't care (now) 
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;Low byte = RadioMode flag 


UPLIMADDR 




. equ 


2DH 


; Address of up limit 


LASTSTATEADDR 


. equ 


2EH 




; Address or last state 


DNLIMADDR 




.equ 


2FH 


;Addr ss of down limit 


NOEECOMM 




. equ 


01111111b 


;Flag: skip radio read/write 


NOINT 




. equ 


10000000b 


;Flag: skip radio interrupts 


RDROPTIME 




. equ 


IOC 

l^o 


; Radio drop—out time: 0.5s 


LRNOCS 


. equ 


CAAH 




; Learn open /close /stop 


BRECEI VED 




. equ 


07 7K 


;B code received flag 


LRN LIGHT 




. equ 


0B3H 


; Light command trans. 


LRNTEMP 




. equ 


0CCH 


; Learn touchcode temporary 


LRNDURTN 




.equ 


0DDH 


; Learn t.c. temp, duration 


REG LEARN 




. equ 


0EEH 


; Regular learn mode 


NORMAL 


. equ 


00K 




; Normal command trans. 


ENTER 




. equ 


OOH 


; Touch code ENTER key 


POUND 




.equ 


01H 


; Touch code # key 


STAR 




.equ 


02H 


; Touch code * key 


ACTIVATIONS 




. equ 


OAAH 


;Number of activations mode 


HOURS 




. equ 


C55H 


; Number of hours mode 


; Flags 


for 


Ramp Flag Register 




STILL 




. equ 


OOH 


; Motor not moving 


RAMPUP 


. equ 


OAAH 




; Ramp speed up to maximum 


RAMP DOWN 




. equ 


0FFH 


; Slow down the motor to minimum 


FULLSPEED 




. equ 


0CCH 


; Running at full speed 


UPSLOWSTART 




. equ 


200 


; Distance {in pulses) from limit when slow- 


down 










DNS LOW START 




.equ 


220 


; of GDO motor starts (for up and down 


direction) 










BACKOFF 




. equ 


16 


; Distance (in pulses) to back trolley off of 


floor 


















; when learning limits by reversing off of 


floor 










SHORT DOOR 




. equ 


r* 3 6 


; Travel distance {in pulses) that 


discriminates 


















; one piece door {slow travel) from a normal 


door 











PERIODS 



AUTO_REV_TIME .equ 124 

MIN_COUNT .equ 02H 

TOTAL_PWK_COUNT . equ 03FH 

FLASH_TIME .equ 61 

;4.5 MINUTE USA LIGHT TIMER 

USA_LIGHT_HI .equ 080H 
USA LIGHT LC .ecru CrIH 

; 2 . 5 MINUTE EUROPE.-.!" LIGHT 1 



EURO_LIGH7_HI 
EURO LIGHT LO 



.equ 
.equ 



047K 
08 6H 



ONE SEC 



.equ 0F4H 



(4 ms prescale) 
pwm start point 
pwm end = start + 2*total-l 
0.25 sec flash time 



4.5 MIN 

4 . 5 MIN 



; 2.5 MIN 
; 2.5 MIN 



; WITH A /4 IN FRONT 

r age 15 oi vl 



CMD_MAKE 
CMD_BREAK 
LIGHT_MAKE 
L*GHT_BREAK .equ 
VAC_MAKE_OUT . equ 
VAC_BREAK_OUT 
VAC_MAKE_IN .equ 
VAC_BRE AK_ IN .equ 

VAC_DEL 
CMD_DEL_EX 
VAC DEL EX 



. equ 8 

.equ (255-8) 

. equ 8 

(255-8) 

4 

.equ (255-4) 
2 

(255-2) 



. equ 
.equ 
. equ 



8 

6 

50 



; cycle count *10mS 
; cycle count *llmS 
; cycle count *100mS 



Delay 16 ms for vacation 
Delay 12 ms ( 5*2 + 2) 
Delay 100 ms 



PREDEFINED REG 



ALL_ON_IMR 
RETURN_IMR 

Radio Imr 



. equ 
. equ 



00111101b 
00111100b 



.ecu OOOOOOClb 



GLOBAL REGISTERS 



STATUS 



. eau 04K 



STATE -equ 

LineCtr .equ 

Ramp Flag .equ 

AUTO_DELAY .equ 

LinePer .equ 

MOT OR_T I ME R_H I - equ 

MOTOR_TIMER_LO . equ 
MOTORJTIMER .equ OAK 

LIGHT_TIMER_HI ■ equ 

LIGHT_TIKE?_LC .equ 
LIGHT_TIMER .equ 0CH 

A03SF .ecu 

PrevFass .ecu 



05K 
0 6H 
07H 
08K 
09K 
0AH 
0BH 

0CH 

DDK 

0EH 
Or H 



; turn on int for timers rpm auxobs radio 
; return on the I MR 

; turn on the radio only 



CMDJTEST 00 
WL_TEST 01 
VACATE ST 02 
CHARGE 03 

state register 

Ramp up, ramp down, or stop 

; Period of AC line coming in 



CHECK_GRr 

check_sum 

rom_data 

test_adr_hi 

test_adr_lc 

test_adr 

CHECK_SUK 

ROM_DATA 

LIM_TEST_HI 

LIM_TEST_LC 

LIMJTEST 

AUXLEARNSW 

RRTO 

rpm_acount 

rs_co"j::te? 

RS232D.VT 

f.-.c:c_cx: 

R DEAL _T IKE 
FAULT 
VAC FLA 3 
VACFLASH 





. equ 


1 0 H 






.equ 


r0 


; check sum pointer 




.equ 


rl 




equ 


r2 






ecu 


r3 








. equ 


rr2 


; check sum reg for 




. equ 


CHECK GRP+0 




. equ 


CHECK_GRP+1 


; data read 




. equ 


CHECK^GRF^O 


; Compare registers 




. equ 


CHECK_GRP+1 


; distance to limit 




. equ 


CHECK_GRP+G 




equ 


CHECK_ 


GRP+2 






. equ 


" CHECK_GRP+3 


r 


equ 


CHECK_ 


GRP+4 


; to test for active rpm 


. ecu 


" CHEC?:_G?.?*5 


; rs2 32 byte' cour.ter 




. equ 


CHECK_GRr->-6 


; rs232 data 




.ecu 




; radio comrr.ar.c 


ecu 


CHECK 


GRr-r c 






• ecu 


' CHECK GRP+9 


* 




, ecu 


CHECK GRP-1C 


; VACATION mode fla 




. equ 


CHECK GRP+il 
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VACCHANGE .equ CHECK_GRP+12 

FAULTTIME .equ CHECKJ3RP+13 

FORCE_ IGNORE .equ CHECKJ3RP+14 

FAULTCODE .equ CHECK_GRP+15 



TlMER_GROuP 


. equ 


a An 

2<JH 






position_hi 




. equ 


rO 




position lo 




.equ 


rl 




position 




. equ 


rrO 




up limit hi 




. equ 


r2 




up limit lo 




. equ 


r3 




up limit 




. equ 


rr2 




switch delay 


. equ 


r4 






obs count 




. equ 


r6 




re command 




. equ 


r9 




rs temp hi 




. equ 


rIO 




r s t emp 1 o 




. equ 


rll 




t s t emo 




. eau 


rrlO 




POSITION HI 

X W Jill \*f I * A A 




. eau 


TIMER 


GROUP+0 


POSITION LO 




. ecru 


timer" 


"grouf^i 


POSITION 




. eau 


TIMER 


"group *o 


UP Liy T T KI 




. eau 


timer" 


~GR0Ur-r2 


up~ltmtt"lo 




. equ 


timer" 


~GR0UP+3 


UP~LIMIT~ 




. equ 


timer" 


~GR0UP-2 


SWITCK_DELAY 


. equ 


TIMER_ 


GROU?^" 


4 


OnePass 




. equ 


" TIMER 


GROUP+5 


OBS_COUNT 




. equ 


timer" 


~GROUF+£ 


RsMode 




.equ 


TIME?/ 


"GROUP+7 


Divisor 




.equ 


TIMER." 


~GROUP+S 


RS COMMAND 




. equ 


TIMER^ 


GROUP+S 


RSJTEMF_HI 




. equ 


timer" 


_GROU?^10 


RSJTEM?_LO 




. equ 


TIME?/ 


"GROUP +11 


RS_TEMP 




. equ 


timer" 


~GROUP-rlO 


PowerLevel 




. equ 


TIMER^ 


_GR0U?^12 


PhaseTMR 




. equ 


TIMER* 


"GROUP+13 


PhaseTime 




. equ 


timer" 


GROU?-rl4 


MaxSpeed 




.equ 


timer" 


GROUP- 15 



Number to divide by 



Current step in 20-step phase ramp-up* 
Timer for turning on and off phase control 
Current time reload value for phase timer 
Maximum speed for this kind of door 



; LEARN EE GROUP FOR LOOPS ECT 



LEARN EE GRr 


. equ 


3 OH 










TEKPK 


. equ 


LEARN E 


I GR? 








TEMPI 


. equ 


LEARN E 


E GRr-1 


i 






F2K SHADOW 




. equ 


LEARNEE GF.P-2 






Readable shadow of P2M register 


LEARN DB 




. equ 


LEARNEE_GRP+ 3 




r 


learn debouncer 


LEARNT 




.equ 


LEARNEE_GRP-4 




i 


learn timer 


ERASET 




.equ 


LEARNEE GRP+5 




t 


erase timer 


MTEMPH 




. equ 


LEARNEE_GR?-6 


i 


memory 


temp 


MTEMPL 




. equ 


LEARNEE GRr - ~ 






memory temp 


MTEMP 


. equ 


LEARNEE_GRP+6 


i 


memory 


temp 


SERIAL 




. equ 


LEARNEE_GRP+9 






data to & from nonvol memory 


ADDRESS 




.ecu 


LEARNEE GRP-iO 






address for the serial nonvol memory 


ZZWIN 


. equ 


LEARN EE GRP+11 




radio 


00 code window 


T0_OFLOW 




. equ 


LEARNEE GRP+12 






Third byte of TO counter 


TOEXT 


. equ 


LEARNEE GRP+13 


r 


tO extend dec'd every TO int 


tce::tword 




. equ 


LEARNEE GRP+12 




$ 


Word-wide TO extension 


T125MS 




. equ 


LEARNEE GRP+14 




r 


125mS counter 


SKIPRADIC 




. equ 


LEARNEEJrRP-15 




t 

! 


flag to skip radio read, write if 
learn or vacation talking tc it 


tenon 


.equ 


rO 




t 






terr.r 1 














lea mob 




. e 2U 






t 


learr. debouncer 


learnt 




. equ 


r4 




r 


learn timer 


eraser 




. ecu 


r5 






erase timer 


mtemph 




.equ 


r€ 




i 


memory temp 
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W2High 


. qu 


Radio3H 


W2Low 




.equ 


Radio3L 




. equ 


radio3h 


V/210W 




. equ 


radical 


O 1 rtv«» l\ 1 Wit 




. equ 


238 


<-T 1 M ^ f\ H I s " L/ 




.equ 


OCOK 


D C 0 '< 9 T D 




. equ 


PO 


KbZ JJii IK 




. equ 


SWITCHES! 


csh 




. equ 


10000G00B 


CSi 




. equ 


-csh 


c 1 oc kh 




. equ 


010000005 


ClOCKl 




. equ 


-clockh 


don 




. equ 


00100000E 


dol 




. equ 


-doh 


1 ean 




. equ 


00000010E 


X cul 




. equ 


-ledh 


psmask 




. equ 


01000000B 


csport 




. equ 


P2 


dioport 




. equ 


P2 


clkpcrt 




. equ 


P2 


iedpor t 




. equ 


P2 


psport 




. equ 


P2 



; Word 2 per Siminor's code 
; description 



; start of the stack 

; end of the stack 

; RS232 input port 

; RS232 mask 

; chip select high for the 93c4€ 

; chip select low for 93c46 

; clock high for 93c46 

; clock low for 93c46 

; data out high for 93c4 6 

; data out low for 93c4 6 

; turn the led pin high "off 
; turn the led pin low "on 

; mask for the program switch 

; chip select port 

; data i/o port 

; clock port 

; led port 

; program switch port 



WATCHDOG_GROUP 

peon 

smr 

wdtmr 



. equ 
. equ 
. equ 
. equ 



0FH 
rO 
rll 
r25 



TwcThirty Three 



WDT .macro 

.byte 5fh 
. endir. 

. ELSE 

WDT .ir.acrc 

xcr Fl, #C 
.er.±r. 

.ENDIF 



FILL 



.macro 
.byte OFFi 
. en dir. 



FILL10 



.macro 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

. e r. zr.. 



; Kick external watchdog 



FILL10 
FILL10 
FI LL1 Z 
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mtempl 




. equ 


rl 


; memory temp 


in temp 


. equ 


r8 




; memory temp 


serial 


. equ 


r9 




; data to and from nonvol mem 


address 




. equ 


rlO 


; addr for serial nonvol memory 


zzwin 


. equ 


rll 




i 


tO_of low 




. equ 


rl2 


; Overflow counter for TO 


tOext 


. equ 


rl3 




; tO extend dec'd every TO int 


tOextword 




. equ 


rrl2 


; Word-wide TO extension 


tl25ms 




. equ 


rl4 


; 125mS counter 


skipradio 




. equ 


r!5 


s flaa to skio radio read write 










; learn or vacation talking to i' 


FORCE GROUF 




. ecu 


4 OH 




dnf orce 




. eau 


rO 




upf orce 




. eau 


rl 




looDrea 




. equ 


r3 




up force hi 


. eou 


r4 






up force lo 


. equ 


r5 






up force 




. ecu 


r r 4 




dn force hi 


. equ 


r£ * 






dn force lo 


. equ 


r7 






dn force 




.ecu 


rr£ 




force add hi 


. ecu 


r6 " 






force add lo 


. equ 


r9 






f orce_add 




. equ 


rr6 




up_temp 




.equ 


rlC 




dn terpr> 




ecu 


rll 




pot count 




.equ 


r!2 




force t ernp o f 


. eou 


rl 2 






force temp hi 


. eau 


r!4 






fnrrp 1" f^rnr^ 1 o 


.eou 


r 1 5 






DN FORCE 




.ecu 


4 OH 




UP FORCE 




ecu 


4 1H 




AOBSTEST 




ecu 


4 2H 








.equ 


4 3H 




UP FORCE KI 


. ecu 


4 4K 






UF~ FORCE - LC 


. eou 


4 5H 






DN FORCE - KI 


. ecu 


4 6H 






DN~FOF.CE~LC 


.equ 


4"H 






UP TEMP 




. ecu 


4 AH 




DN TEMP 




. ecu 


4 EH 




POT COUNT 




. ecu 


4CH 




FORCE TEXr_0F 


. equ 


4CH 






FORCE TEMP HI 




.equ 


4 EH 




F0RCE_TEKF_L0 




. ecu 


4 FH 




RPM_GR0UF 




. ecu 


5CH 




rtypes2 




. equ 


rO 




stackf lac 




. ecu 


rl 




rpm_temp_cf 




. equ 


r 2 




rpm_temp__hi 


.equ 


r3 






rpm__temp_hiword 


. equ 


rr2 




rpm_temp_lo 


. equ 


r4 






rpm_past_hi 


. equ 


r5 






rpm_past_lo 


. equ 


r6 






rp-_reri zzjr.i 




. ecu 






rp:r._perioc_ic 




.ecu 


r- p 




divcounter 




. equ 


rll 


; Counter for dividing RPK time 






. ecu 






rprr. tirr.s cut 


. equ 


r 13 







RT yp e s 2 .ecu R ?X_G ?. OV ? - C 

STACK FLAG .equ RPK-^GROUF + l 
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J 



RJ»M_TEMP_OF 




. equ 


RPM GROUP+2 


; Overflow for RPM Time 


RPM TEMP HI 


equ 


RPM GROUP-r3 




RPM TEMP HWORD 


.equ 


RPM GROUP+2 


; High word of RPM Time 


RPM TEMP LO 


equ 


RPM_GROUP+4 




R*PM~*PAST HI 


equ 


RPM_GROUP+5 




RPM~PAST LO 


equ 


RPM GROUP+6 




RPM PERIOD__HI 




. equ 


RPMJ3ROUP+7 




RPM PERIOD LO 




. equ 


RPM_GROUF+8 




DN LIMIT HI 




. equ 


RPM GROUP+S 


; 


DN~~LIMIT _ LO 




. equ 


RPMJ3ROUP+10 


. 


DISCOUNTER 




. equ 


RPM_GROUF+ll 


; Counter for dividing RPM time 


RPM FILTER 




.equ 


RPM GROUP- 11 


„ ; DOUBLE MAPPED register for filtering 


RPM COUNT 




. equ 


RPM GROUF+12 




RPM_TIME_OUT . 


equ 


RPM GROUP+13 




BLINK_HI 




.equ 


RPM GROUP- 14 


; Blink timer for flashing the 


BLINK_LC 




. equ 


RPM GROUP-r i 5 


; about-to-travel warning light 


BLINK 




. equ 


RPM GROUP* 14 


; Word-wise blink timer 



RADIO GROUP 



RadioGrcup 


. equ 


6GH 


i 






RTemp 




. equ 


RadioGroup 


# 


radio temp storage 


RTempH 


. equ 


RadioGroup+1 ; radio 


temp storage high 


RTemp L 


. equ 


RadioGroup-*-2 ; radio 


temp storage low 


RTimeAH 




. equ 


RadioGrcup+3 


radio 


active time high byte 


RTimeAL 




.equ 


RadioGroup+4 ; 


radio 


active time low byte 


DT -i mp T K 
T\ 1 J. ltltrJ.ii 




.equ 


RadioGrcup- 1 - 5 , 


radio 


inactive time high byte 


RTimelL 




. equ 


RacioGroup*6 ; radio 


inactive time low byte 


RadiolH 




. equ 


RadioGrcup^"/ 


sync 1 code storage 


RadiolL 




. equ 


RadioGroup+8 ; sync 1 code storage 


RadioC 


. equ 


RadioG 


roup- £• ; radio 


word count 


Point erH 




. equ 


RadioGrcup-10 , 






PcinterL 




. equ 


RadioGroup+I 1 






AddValueH 




. equ 


RadioGroup+12 , 






AddValueL 




. equ 


RadioGroup^ 1 3 , 






Radio3H 




. equ 


RadioGroup-!- 1 4 , 


sync 3 code storage 


Redic2L 




.equ 


RadioGroup- 1 5 


; sync 3 code storage 


rtemp' 




. ecu 


z ~~ 


/ 


radio temp storage 


rtemph 


. equ 






• radio 


temp storage high 


rrerr.r 1 


. equ 


r 2 




- radio 


temp storage lew 


r time ah 


. equ 






radio active time high byte 


rtimeai 




. equ 


r4 


i 


radio active time low byte 


rtimeih 




. equ 


r5 


i 


radio inactive time high byte 


rt imeil 




. equ 






radio inactive time low byte 


radiolh 




. ecu 


r- 7 




sync 1 code storage 


radioil 




. equ 


r6 




sync 1 code storage 


radioc 


. equ 


r9 




; radio 


word count 


pointerh 




. equ 


rlC 






pointerl 




. equ 


rll 






pointer 




.equ 


rrIC 




Overall pointer for ROM 


addvalueh 




. equ 


rl2 






addvaluel 




. equ 


ri3 






radic3h 




.equ 


r!4 




sync 3 code storage 


radic3I 




.equ 


rl5 




• sync 3 code storage 


w2 




.equ 


rr!4 




• For Siminor revision 


Count erG roup 


. equ 


CPCfc 




; count 


er group- 


TestReg 




. ecu 


Cour.ierGrcup 


; Test 


area when dividing 


BitMask 




. equ 


CounterGroup+Gl 




; Mask for transmitters 


LastKatch 




. eq j. 


C:u:.:er 3 roup- 12 




; last matching code adores 5 


LocpCour.-c 




. equ 


Counter 3r cue- C 3 




; iocp counter 


CounterA 




. equ 


Count er Group* 04 




; counter translation MSB. 


Counters 




. equ 


Cou r. t e r G r ou p - C 5 






CounterC 




. equ 


Count e r Group* Go 
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Counter L 

MirrorA 

MirrorB 

.MirrorC 
"MirrorD 
COUNT 1H 
COUNT 1L 

" COUNT 3 H 
COUNT3L 



. equ 
. equ 
. equ 
. equ 
. equ 
.equ 
.equ 
. equ 
. equ 



Counte 
Counte 
Counte 
Counte 
Counte 
Counte 
Counte 
Counte 
Counte 



rGroup+07 

rGroup+08 

rGroup+09 

rGroup+010 

rGroup+011 

rGroup+012 

rGroup+013 

rGroup+014 

rGroup+015 



) 

counter translation LSB 
back translation MSB 



back translation LSB 
received count 



loopcount 

countera 

counterb 

counterc 

counterd 

mirrora 

mirrorb 

mirrorc 

mirrord 



. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 
. equ 



r3 

r4 

r5 

r6 

r7 

r8 

r9 

rlO 

rll 



Radio2Group 

PREVFIX 

PREVTK? 

ROLLBIT 

RTimeDH 

RTimeDL 

RTimePK 

RTimeFL 

ID_B 

SW_B 

RAD I OB IT 

Ra d i oT ime Ou t 

RadioMode 

BitThresh 

SyncThresh 

MaxBits 

RFlag 



. equ 



. equ 

. equ 
. equ 
. equ 
. equ 
.equ 
. equ 
. equ 
. equ 

• ec T- 
. equ 
Radio2 
.equ 
. equ 
. equ 
.equ 
. equ 



080H 

Ratii o2Gr cup 
Radic2Group 
Raoi c2 Group 
Radio2Group 
Radic2Grcup 
Radi c2Gr oup 
Radio2Group 
Radio2Group 
Radio2Group 
Radi o2 Group 
Group + 10 
Radio2Grcur 
Radio2Grcup 
Radio2Group 
Radio2Grcup 
Radic2Group 



12 
13 
14 
15 



; Fixed or rolling mode 

;Bit decision threshold 

;Sync pulse decision threshold 

; Maximum number of bits 

; Radio flags 



prevt i x 
prevtnx 
rclltit 
id_b 

radicbi t 
racictir.eoi 
radiomcde 
rf iec 



. equ 
. equ 
.equ 
. equ 
. equ 
.equ 
rlC 
. equ 
. eou 



r ~ 



OrginalGroup 
SW_DATA 
0NEP2 
LAST CMD 



CodeFlag 



.equ 



RPMDKES 
R PMC LEAR 



9 OH 
. equ 
. equ 
. equ 



.eq^ 



. equ 
. ecu 



OrginalGrcup-0 
Orcina IGroup+1 
OrginalGroup- t -2 



OrginalGroup-*- 3 



Orcir.alG 



lGrcup-5 



1.2 SEC TIMER TICK .125 
LAST COMMAND FROM 
=55 WALL CONTROL 
- 00 RADIO 

Radio code type flag 

FF = Learning open/close/stop 

77 = b code 

AA = open/close/stop code 

55 = Light control transmitter 

00 = Command cr unkr.owr. 
RPM Pulse One Sec. Disable 
RPM PULSE CLEAR & TEST TIMER 
F.?K FORCED AREV FLAG 
8SH FOR A FORCED REVERSE 



FLASH_FLAG 
FLASH DELA^ 



. ecu 



. ec 
Crc 



i Orcir.al Group- 
LnalGrcuo- 5 
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REASON 


. equ 


i 

OrginalGroup*9 




) 


FLASH_COUNTER 




. equ 


OrginalGroup+10 






RadioTypes 




. equ 


OrginalGroup+11 




; Types for one page of tx's 


LIGHT_FLAG 




. equ 


OrginalGroup+12 






CMD DEB 




. equ 


OrginalGroup+13 






LIGHT_DEB 




. equ 


OrginalGroup+14 






VAC_DEB 




. equ 


OrginalGroup+15 






NextGroup 




. equ 


OAOH 






SDISABLE 




.equ 


NextGroup-?- 0 




system disable timer 


PRADI03H 




. equ 


NextGroup*l 




3 mS code storage high byte 


PRADI03L 




. equ 


NextGroup*2 




3 mS code storage low byte 


PRADIOiH 




. equ 


NextGroup-^3 




1 mS code storage high byte 


PRADIOIL 




. equ 


NextGroup*4 


. 


1 mS code storage low byte 


RTO 




. equ 


NextGroup* 5 




radio time out 


;RFlag 




. equ 


NextGroup^6 




radio flags 


EnableWorkLight 


. equ 


NextGroup* € 




; 4-22-97 work light function on 


RINFILTER 




. equ 


NextGroup-r7 




radio input filter 


LIGHT1S 




. equ 


NextGrcup+8 




light timer for lsecond flash 


DOG 2 




. equ 


NextGroup+9 




second watchdog 


FAULT FLAG 




. eau 


NextGroup-^ 1 0 




flag for fault blink, no rad. blink 


MOT DEL 




. eau 


NextGroup* I i 




motor time delay 


PPOIKT_DEE 




. equ 


NextGroup- i 2 




Pass Point debouncer 


DELAYC 




. eau 


NextGroup* 1 3 




for the time delay for command 


L__A_C 




. eau 


NextGroup* 1 4 




Limits are chanaina rpaister 


CMP 




. equ 


NextGroup* 1 5 




Counter compare result 


BACKUP_GRP 




• eau 


OBOH 






PCounterA 




. eau 


BACKUP GRP 






PCounterB 




. equ 


BACKUP~GRF*1 






PCounterC 




. eau 


BACKUP~GRP*2 






PCounterD 




. equ 


BACKUP~GR?-*-3 






HOUR TIMEn 




. eau 


BACKUr"~GRr - 4 






ij/^Ttn t Twirr LJT 

HOun TIMni\ HI 


. equ 


BACKUP 


GRP* 4 ~ 








. equ 


BACKUF 


~GRP+5 






PassCounte r 




. eau 


"BACKUP GRP* 6 










. eau 


BACKUF~GRP-t-7 






FirstRun 




. equ 


BACKUP~GRP*8 




Flan for -f S t c f nr,p rat i nr. a f ?- p= ■»- no wo r 


Mi n Speed 




. equ 


BACKUF_GRP-S 






BRPM COUNT 




. ecu 
- 


BACKUP GRP -2 Z 






BRPK_TIME_OUT 




. eau 


BACKUP - GRP-I I 






B FORCE IGNORE 




. equ 


BACKUP" GRP- 1 2 






BAUTC DELAY 


. equ 


BACKUP 








BCMD DEB 




. equ 


~BACKU F GR ? - 1 4 






BSTATE 




.equ 


BACKUP_GRP-15 






Double- 


■mapped 


regis' 


tiers for M650C te 


s t 




COUNT_HI 




. equ 


BRPM_COUNT 






COUNT LO 




. equ 


BRPM_TIME OUT 






COUNT 




. equ 


B FORCE IGNORE 






REGTEMP 




. equ 


BAUTO_ DELAY 






REGTEKF2 




.equ 


BCMZ DEE 






; Double- 


■mapped 


registers fcr Siminor 


Code 


Recept ion 


CodeTO 


. equ 


COUNT iL 




Bina ry radio code received 


CodeTl 


. equ 


RadiolL 






CodeT2 


. equ 


MirrorC 






CodeT3 


. equ 


MirrorD 






CodeT4 


.equ 


C0UNT3H 






CodeT5 


.equ 


COUNT? 








Ix 




. equ 


COUNT 1 H 




; index per Simir.cr's code 


KIHich 


. equ 


AddVai 


ueH 




Word i per Siminor 1 s cede 


WILow 




. equ 


AddValueL 




; description 


wihich 


. equ 


addval 


ueh 






wiiow 




.equ 


addvaluel 
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W2High 


.equ 


Radio3H 


; Word 2 


per Siminor's code 


W2Low 




.equ 


Radio3L 




descriotion 


w2high 


. equ 


radio3h 






w21ow 




. equ 


r adi c 3 1 






STACKTOP 




. equ 






SLOl U VI UJJtr 5 LOLA 


ST AC KEN D 




. equ 


n r* Pi u 




eiivi \s i. Lilt: SLawA. 


RS232IP 




. equ 


PU 




13 C 0 "5 O i nm 1 t- r>k/-\*-t- 

i\o <l ^ uipu l por L 


r\o ^ o £ XI. 




. equ 




i 


KOt j£ ludSK 


csh 




.equ 


t r* a a r r, a r *^ 


f 


chip select high for the 93c4 6 


csl 




. equ 


~CSh 


i 


chip select low for 93c4 6 


c 2 o c k h 




. equ 


UlUUUUUUrs 


t 


clock high for 93c46 


C J. UC K X 




. equ 


*cl ockn 


i 


clock low for 93c46 


UUl 1 




. equ 


00100000E 


i 


data out high for 93c4 6 


Hoi 




. equ 


-doh 


* 


data out low for 93c4 6 


ledh 




. equ 


000000I0E 




turn the led pin high "off 


ledl 




. equ 


-ledh 


; turn the led pin low "on 


psmask 




. equ 


01000000B 




mask for the program switch 


c sport 




. ecu 


P2 




chip select port 


diopcrt 




. equ 


P2 




data i/o port 


clkport 




. equ 


F2 




clock port 


iedport 




.equ 


P2 




led port 


psport 




. equ 


P2 




program switch port 



WATCHDOG_GROUP 

peon 

smr 

wdtmr 



WDT 



WD1 



FILL 



. equ 
. equ 
. equ 
. equ 



OFH 
rO 
rll 
r25 



.IF Twc7* 

.macro 
.byte Sfh 
. endir. 

. ELSE 

.macro 

xcr FI, i 
. er.dfcr. 

.END IF 

.macro 
.byte OFFh 
. ends*. 



LrtyThree 



FILL10 .macro 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
. er.iT. 



; Kick external watchdog 



r * - — 

FILL10 

FILL10 

fill:: 
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) 



FILL10 
FILLIO 
FILLIO 
FILLIO 
FILLIO 
FILLIO 
. en dm 

FILLiOOO .macro 
FILL100 
FILL100 
FILL100 
FILL100 
FILL100 
FILLIOO 
FILL100 
FILLIOO 
FILLIOO 
FILLIOO 
. endir. 

TRAP .macro 

jp start 

jp start 

jp start 

jp start 

jp start 

. endm 
TRAFIO .macro 

TRAP 

TRAF 

TRAP 

TRAP 

TRAP 

TRAF 

TRAP 

TRAF 

TRAF 

TRAF 

. en dm 

SetRpToRacic2Group .macro 
.byte G31H 
.byte 05 OH 



Interrupt Vector Table 



.org 0000H 



. en air, 



.IF 



TwcThirtyThree 



.word RADIO_INT 

.word OOOCH 

.word RPM 

.word AUX_OBS 

.were TIMERVr 
.were 



;IRQ1, P3.3 

;IRQ2, P3.1 

;IRQ3, P3.0 

;IRQ4 # ?: 



;IRQ0 



; IRQ5, Tl 



.word RADIO_INT 
.were ?AD:C_INT 
.word RPK 



; IRQO 

; IRQ! , P3.3 
;IRQ2, P3.1 
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.word AUX_OBS 
.word TIMERUD 
.word 000CH 



;IRQ3, P3.0 
;IRQ4, TO 
;IRQ5, Tl 



. ENDIF 



.page 

.org OOOCH 
jp START 



;jmps to start at location 0101, 0202 etc 



RS232 DATA ROUTINES 
RS_COUNTER REGISTER: 

0000XXXX - 0011XXXX Input byte counter (inputting bytes 1-4) 
00XXOOOO Waiting for a start bit 

00XX0001 - XXXXiOOl Input bit counter (Bits 1-9, including stop) 
00XX1111 Idle — whole byte received 

1000XXXX - 1111XXXX Output byte counter (outputting bytes 1-8) 
1XXXO00C Tell the routine to output a byte 

1XXX000I - lXXXlOC; Outputting a byte (Bits 1-5? , including stop) 
1XXX1111 Idle -- whole byte output 



OutputMode : 








tm 


RS_COUNTER , #000011115 




Check for outputting start bit 




z, OutputStart 


* 




ten. 


RS_COUN 7E ?. , #000020015 


* 


Check for outputting stop bit 




z, Output Stop 


; (bit 


9), if so, don't increment 


Output Data : 








scf 




; Set carry to ensure high stop bit 


rrc 


RS232DAT 


; Test the bit for output 




c, OutputHigh 






Output Low : 








and 


p3, h - CKA? SI SW 




• Turn off the pull-up 


cr 


?3, *rrr_s>; 




Turn on the pull -down 




DataBitDcne 






Output St art : 








Id 


Ti, #Rs?erFuli 


; Set the timer to a full bit period 


Id 






• Load the full time period 


and 


p3, # -CHARGE S>; 




■ Send a start bit 


or 


P3, #DIS SW 






inc 






; Set the counter to first bit 


iret 








OutputHigh : 








and 


p3, #-d:s sk 


; Turn 


off the pull-down 


or 


P3, #CHARGE_SW 


; Turn on the pull-up 


DataBitDcne : 








ir.c 
iret 






- Advance to the next data bit 


Out put Step : 








and 


p3, #-D2S sv: 


; Outpu 


t a stcc (hioh* bit 


or 


P3, *chaf.ge_sk 


* 
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or 
cp 
jr 
clr 

MoreOutput : 

RSExit: 

iret 



RS_COUNTER , #00001111B 
RS_COUNTER , #111111UB 
nz r MoreOutput 
RS COUNTER 



; Set the flag for word being done 

; Test for last output byte 

; If not, wait for more output 

; Start waiting for input bytes 



RS232: 



cp RsMode, #00 

jr nz, InRsKode 

cp STATUS , # CHARGE 

jr n2, WallModeBad 



; Check for in RS232 mode, 
If so, keep receiving data 

; Else, only receive data when 
; charging the wall contol 



InRsMode : 



tern RS_COUNTER, #000011 1 IE 

jr z, RSExit 

tm RS_COUNTER, #110000005 

jr nz, OutputMode 



; Test for idle state 

; If so, don't do anything 

; test for input or output mode 



RS Input : 
tm 



scf 
tm 



rcf 
GotRsBit : 



RS_COUNTER, #00001 11 IB 
z, WaitForStart 



tern RS_COUNTER, #000010015 
jr z, StopBit 



RS232IP, #RS232IK 
nz, GotRsBit 



; Check for waiting for start 

; If so, test for start bit 

; Test for receiving the stop bit 

; If so, end the word 

; Initially set the data in bit 

; Check for high or low bit at input 
If high, leave carry high 

; Input bit was low 



rr c 
inc 
2 ret 



RS 2 3 2 DAT 
RS COUNTER 



; Shift the bit into the byte 
; Advance tc the' next bit 



Stop-i* 



tm RS232IF, #RS232IK 

jr z, Data5eci 



; Test for a valid stop bit 

; If invalid, throw out the wore: 



PataGood : 



IsData : 



tm 
jr 
Id 

cr 

iret 



RS_COUNTEE , #111100005 

nz, IsData 

RS COMMAND, RS2 32 DAT 

RS COUNTER, #000011115 



; If we* re not reading the first word, 
; then this is not a command 
Load the new command word 

; Indicate idle at end of word 



WallModeBad: 
clr 

DataBad: 

and 



RS COUNTER 



RS COUNTER, fK 



; Reset the RS232 state 



; Clear the byte counter 



WaitForStart: 



RS222IP, #F.S232IK 



; Check for a start bit 
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inc 
Id 
Id 
Id 

iret 



nz, NoStartBit 

RS_COUNTER 
Tl, #RsPerlP22 
TMR, #00001110B 
Tl, #RsPerFull 



I 

; If high, keep waiting 

; Set to receive bit 1 

; Long time until next sample 

; Load the timer 

; Sample at IX afterwards 



NoStartBit : 
Id 

iret 



Tl, #RsPerHalf 



; Sample at 2X for start bit 



Set the worklight timer tc 4.5 minutes for 60Hz line 
and 2.5 minutes for 50 Hz line 



SetVarLight : 
cp 
jr 

USALight : 
Id 

Id 
ret 

EuroLight : 
Id 
id 
ret 



LinePer, #36 
uge, EuroLight 

LIGHT_TIMER_HI , #USA_LIGHT_HI 
LIGHT TIMER LO, #USA LIGHT LO 



LIGHT_TIMER_HI, #EURO_LIGKT_HI 
LIGHT TIMER LO, #EURO LIGHT LO 



Test for 50Hz or 60Hz 

; Load the proper table 



set the light period 
Return 

set the light period 
Return 



THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 



AUX 05S: 



id 

and 

Id 

cr 

and 

iret 



OBS_COUNT, #11 
imr, #11110111b 
AOBSTEST, *1I 
AOBSF, #0000001 OB 
AOBSF, #li01111iE 



; reset pulse counter (no obstruction) 
; turn off the interupt for up to 500uS 
reset the test timer 

; set the flag for got a aobs 
; Clear the bad aobs flag 
; return from int 



Test for the preser.ee c: a z'-Lr.ker .t.ccule 



LockForFiasher : 

and P2M_SKAr0W, # -5Li:;?:_? IK 

id P2K, F2K_SHA20W 

cr F2, *5LIKK_FIK 

or P2K_SHADOK, #5LINK_FIN 

Id P2K, P2K_SHADOW 

ret 



Set high for autolatch test 



Look for Flasher module 



; Fill 41 bytes cf unused memory 

FILL 10 
FILLI0 
FILL10 
FILL10 
FILL 



; REG I STEP. INITILI2ATIOK 

.:r: G1C-1K ; address has both bytes the s£ 

start : 

START: di ; turn off the interrupt for init 

.IF TwoThirtyThree 
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) 



Id RP, #WATCHDOG_GROUP 

Id wdtmr, #00001111B 

. ELSE 

clr PI 

.ENDIF 



WDT 
clr 



RP 



PORT INITILIZATION 



; rc dog lOOmS 



kick the dog 

clear the register pointer 



lei 
Id 
Id 
Id 

Id 

Id 



PO, #P01S_INIT 
P2, #P2S_POR 
P3 f #P3S_INIT 
P0iM,#P01M_INIT 
F3M, #P3M_INIT 



P2M, #F2K_POR 
* Internal RAM Test and Reset All RAM 



RESET all ports 

Output the chip ID code 

; set mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p3"7 outputs 
set port 2 mode for chip ID out 



mS 



srp 


#0F0h 


Id 


rl5,#4 


again : 




WDT 




Id 


r!4,#l 


againl 




' Id 


@rl5, rl4 


cp 


rl4, 0rl5 


jr 


ne, system error 


rl 


rl4 




nc, write againl 


clr 


@r±5 


inc 


rlS 


cp 


r!5, #240 


j r 


u 1 t , w r i t e_a g a i r. 



; point to control group use stack 
;rl5= pointer (minimum of RAM) 

; KICK THE DOG 



;write 1,2,4,8,10,20,40,80 
;then compare 



; write RAM(r5)=0 to memory 



Checksum. Test 



CHECKSUMTEST: 
srp 
Id 
Id 

add_sum: 

WDT 

ldc 

add 

decw 

jr 

cp 

j r 

systeir_er rcr : 
sr. c 

. byte 
system_ok : 



#CKECK_GR? 
test_adr_hi, #01FH 
test adr lo,#0FFH 



rom_data, (?test_adr 
check_sum, rom_data 
test_adr 
nz, add_sum 

check_sum, # che:k_s^T._ 
z , system_c): 

ledpcrt , #ledl 
sys:er_errcr 

25£-check £ urn. value 



;maximum address=fffh 

; KICK THE DOG 
; read ROM code one by one 
;add it to checksum register 
; increment ROM address 
address=0 ? 

check final checksum. = 00 ? 
turn or. the LED tc indicate fault 
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WDT ; k icIc tne do 9 

Id STACKEND, ISTACKTOP ; start at the top of the stack 
-SETSTACKLOOP: 

Id 9STACKEND, #01H ; set the value for the stack vector 

dec STACKEND ; next address 

cp STACKEND, « STACKEND ; test for the last address 

jr nz, SETSTACKLOOP ; loop till done 

CLEAR DONE : 

Id STATE, #06 ; set the state to stop 

Id BSTATE,#06 

; Id OnePass, STATE ; Set the one-shot 

Id STATUS, # CHARGE ; set start to charge 

Id SWITCH_DELAY, #CKD_DEL_EX ; set the delay time to crod 

Id LIGHT_TIMER_HI , #'JSA_LIGHT_HI ; set the light period 

Id LIGHT_TIMER__LO, #'JSA_LIGHT_LO ; for the 4.5 min timer 

Id RPMONES,#244 ; set the hold off 

srp #LEARNEE_GRF 

Id learndb, #0FFH ; set the learn denouncer 

Id zzwin, learndb ; turn off the learning 

Id CHZ- DEE , learndb ; in case of shorted switches 

Id BCMD_DEE, learndb ; in case of shorted switches 

Id VAC_DEB, learndb 

Id LIGHT_DEE, learndb 

Id ERASET, learndb ; set the erase timer 

Id learnt, learndb ; set the learn timer 

Id RTO, learndb ; set the radio time out 

Id AUXLEARNSK, learndb ; turn off the aux learn switch 

Id RRTO, learndb ; set the radio timer 



STACK INITILIZATION 



clr 254 

Id 255, #236 ; set the start of the stack 

.IF TwcThirtyThree 

.ELSE 

clr PI 

.ENDIF 



; TIKE?. INITILIZATIOK 



Id PREO, #000001C1B ; set the prescaler to /l for 4MHz 

Id PRE1, #00010011E ; set the prescaler tc /4 for 4MHz 

clr TO ; set the counter to count FF through 0 

Id Tl, #RsFerHalf ; set the period tc rs232 period for' start bit sample 

Id TMR,#00001111B ; turn on the timers 



; PORT INITILIZATION 



Id P0,#P01S_INIT ; RESET all ports 

Id P2,#F2S_INIT 

Id P3,#P3S_INIT ; 

Id P01M, #P01M_INIT ; set mode p00-p03 out p04-p0"?in 

id F3K, #F3!*:_IKIT ; set port 3 p30-p33 input ana ice mode 

; p34-p3"? outputs 

ic P2K_SKA?OW, *?2K_IN:T ; Shadow P2M for read ability 

Id F2K, f ?l::_INI7 ; set port 2 mode 

.IF TwcThirtyThree 
. ELSE 
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clr PI 
. ENDIF 



READ THE MEMORY 2X AND GET THE VAC FLAG 



Id SKIPRADIO, #NOEECOMM 

Id ADDRESS, #VACATIONADDR 

call READMEMORY 

call READMEMORY 

Id VAC FLAG , MTEMPH 



; set non vol address to the VAC flag 

; read the value 2X IX INIT 2ND read 

; read the value 

; save into volital 



WakeUpLimits : 
Id 

call 
Id 
Id 
Id 

call 
Id 
Id 
WDT 



ADDRESS , #UPLIMADDR 
READMEMORY 
UP_LIMIT_HI , MTEMPH 
UP_LIMIT_LO, MTEMPL 
ADDRESS , # DNLIMADDR 
READMEMORY 
DN_LIMIT_HI , MTEMPH 
DN LIMIT LC, MTEMPL 



; Read the up and down limits into memory 



; Kick the dog 



WakeUpState : 
Id 

call 

Id 

Id 

cp 

jr 

cp 



ADDRESS, #LASTSTATEADD? 
READMEMORY 
STATE, MTEMPL 
PassCounter, MTEMPH 
STATE, #UP_POSITION 
2, WakeUpLimit 
STATE, #DrC_F0SITIOi: 
z, WakeDnLimir 



; Read the previous operating state into memory 

; Load the state 
; Load the pass point counter 
; If at up limit, set position 
s 

; If at down limit, set position 



WakeUpLost : 
Id 
Id 
Id 



STATE , *STOF 
POSITION_HI, #G"FH 
POSITION_LC, #0 50H 
GotWake'Jp 



Set state as stopped in mid travel 
Set position as lost 



WakeUpLimi* 
1c 
Id 



positio:;_h: , 
positicn_lc, 

GotWakeUp 



LIMIT LC 



Set position as at the up limit 



WakeDnLimit : 
Id 
Id 



position_h: , dn_limit_ki 
pos i t i ok_lo , dk_l i m i t_lo 



; Set position as at the down limit 



GotWakeUp: 



Id BSTATE, STATE 

Id OnePass, STATE 



; Back up the state and 

; clear the one-shot 



; SET ROLLING/FIXED MODE FROM NON -VOLATILE MEMORY 



call SetRadioMode 

ir SETINTIP.P.'JrTS 



; Set the radio mode 

; Continue or. 



SetRadioMode : 

Id 
Id 

call 
Id 



skipraiic, #kceeco>:x 
address , #modeadde 

READMEMORY 
RadioMode, MTEMPL 



; Set skip radio flag 
Point to the radio mode flag 
; Read the radic mode 
; Set the proper radio mode 
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clr SKIPRADIO 

tm RadioMode, #ROLL_MASK 

jr nz, StartRoll 



; Re-enable the radio 

; Do we want rolling numbers 



call 
ret 



FixedNums 



StartRoll : 



call 
ret 



RollNums 



* 

; INITERRUPT INITILIZATION 
SETINTERRUPTS: 



Id 


I PR, #000110105 


; set the 


priority to timer 


Id 


IMR, #ALL_0N_IKR 


; turn on 


the interrupt 


.IF 


TwoThirtyThree 






Id 


IRQ, #010000005 


; set the 


edge clear int 


. ELSE 








Id 


IRQ, #00000000fc 


; • Set the 


edge, clear ints 


■ENDIF 









; enable interrupt 



RESET SYSTEM REG 



, IF 



TwoThirtyThree 



Id 
Id 
Id 

clr 



R?, # WAT CK DOG_GRO : J ? 
smr, #001000I0E 
peon, #011111103 

RP 

.ENDIF 

preo, #:cc:-c:c: = 



reset the xtal / number 

reset the peon no comparator output 

no low emi mode 

Reset the RP 



set the prescaier to / 
Kick the dog 



1 for 4Khz 



KAIi: LOG? 
MAINLOOP: 



cp 
jr 



PrevPass, PassCounter 
z, PassPcintCur rent 



; Compare pass point counter to backup 
;If equal, EEPROM is up to date 



PassPointChangec : 



Id 


SKIPRADIO, #NOEECOMM 


; Disable radio EEPROM communications 


Id 


ADDRESS, #LASTSTATEADDR 


; Point to the pass point storage 


call 


READMEMORY 


; Get the current GDO state 


di 




; Lock in the pass point state 


Id 


MTEMPH, PassCounter 


; Store the current pass point state 


Id 


FrevPass, PassCcur.ter 


; Clear the one-shct 


ei 

call 


WRITEMEKORY 


; Write it back to the EEPROM 


clr 







PassPointCurrent : 
,-4-22-9? 
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CP EnableWorkLight, #10000000B ;is the debouncer s t? if so write and 

;give feedback 

JR NE,LightOpen 

TM p0,# LIGHT JDN 

JR NZ,GetRidOfIt 

LD MTEMPL, #0FFH ; turn on the IR beam work light function 

LD MTEMPH, $OFFH 

JR CommitToMem 
. GetRidOflt : 

LD MTEMPL, # 00H ; turn off the IR beam work light function 

LD MTEMPH, #00H 
CommitToMem.: 

LD SKIPRADIO, #NOEECOMK ;write to memory to store if enabled or not 

LD ADDRESS, #IRLIGHTADDR ; set address for write 

CALL WRITEMEMORY 

CLR SKIPRADIO 

XOR pO, #WORKLIGHT /toggle current state of work light for feedback 

LD EnableWorkLight, #01100000B 

1 

LightOpen : 

cp LIGHT_TIMER_KI, #0FFK ; if light timer not done test beam break 

jr nz, TestBeamEreak 

tm pO, #LIGK7_0N ; if the light is off test beam break 

jr nz,LightSkip 

TestBeamBreak : 

tm AOBSF, #10000000c ; Test for broken beam 

jr z,LightSkip ; if no pulses Staying blocked 

; else we are intermittent 

; 4-22-97 

LD SKIPRADIO, #NO££COMM ;Trun off radio interrupt to read from e2 

LD ADDRESS, #IRLIGHTADDR 

CALL READMEMOr.Y 

CLR SKIPRADIC ; don't forget to zero the one shot 

CP MTEMPL, # DISABLED ;Does e2 report that IR work light function 

JR EQ,LightSkip ;is disabled? IF so jump over light on and 

i 

cp STATE, #2 ; test for the up limit 

jr nz,LightSkip ; if net goto output the code 

call SetVarLicht ; Set worklight to proper time 

cr pC,#LIGK7_0N ; turn on the light 

Light Skip: 

,•4-22-97 

ANH AOBSF, #0;illliiE ;Clear the one shot, for IR beam 

; break detect. 

i 

cp KO T JF._TIK£r.__HI , ¥ C'ICH ; I f an hour has passed, 

jr ult, NoDecremer.t ; then decrement the 

cp HOUR_T 1 MER__LC , #02 OH ; temporary password timer 

jr ult, NoDecrement ; 

cir H0'J?._7IKER_r;i ; Reset hour timer 

Clr HOUR_TIMER_LO 

Id SKIPRADIO, ~#NOEECDMv ; Disable radio EE read 

Id ADDRESS, #DURA7 ; Load the temporary password 

call READMEMORY ; duration from non-volatile 

cp MTEMPK, # HOURS ; If not in timer mode, 

jr nz, NoDecrement2 ; then don't update 

cp MTEMPL, #00 ; If timer is not done, 

jr z, NoDecrement2 ; decrement it 

dec MTE!-:?L ; Update the number of hours 

call WRITEMEMORY 

NoDecrement : 

tm A03SF, #02000:«:-C'b ; If the pell radio mode flag is 

jr z, NcDecremer,t2 ; set, poll the radio mode 
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call 
and 

N6Decrement2 : 



SetRadioMode 
AOBSF, nOllllllb 



Set the radio mode 

; Clear the flag 



clr 

and 

clr 

Id 

Id 

or 

and 

Id 

cp 

jr 

cp 

jr 

Id 

jr 

MCLEARVAC : 
Clr 

SETVACCHANG 
clr 
Id 
Id 
Id 
Id 

call 
clr 
NOVACCHG : 
cp 

jr 

cp 
j r 

cp 
jr 

cp 



Dr 

Read'JpLimit : 

Id 
Id 

call 

di 

Id 

Id 

clr 

add 

adc 

CalcKaxLoop: 
inc 
add 
adc 

j r 

GczKa>:??cir.z : 
ei 

tr. 
jr 
cp 
jr 



SKIPRADIO 

AOBSF, #G0100011b 

DOG2 

P01M,#P01M_INIT 
F3M, #P3M_INIT 

P2M_SHADOW, #F2M ALLINS 
P2M_SHADOW, #P2M__ALLOUTS 
P2M, P2M_SHAD0W 
VACCHANGE, #OAAH 
nz, NOVACCHG 
VAC FLAG, # OFFH 
2 , MCLEARVAC 
VAC FLAG, # OFFH 
SETVACCHANGE 

VAC FLAG 

VACCHANGE 

SKIPRADIO, #NOEECOMM 
ADDRESS, # VACATION AD Dr. 
MTEMPH , VAC FLAG 
MTEMPL, VAC FLAG 
WRITEMEMORY 
SKIPRADIO 

STACKFLAG, #0FFK 
nz,NOCHANGE ST 

L_A_C, #07 OH 

uge, SkipReadLimits 

STATE, #UF_DIRECTION 
z, ReadUpLimit 

STATE, # INDIRECTION 
z, ReadOr.lir.it 

SkipReadLimits 



Re-enable radio reads 
Clear the single break flag 
clear the second watchdog 
set mode p00-p03 out p04-p07in 
set port3 p30-p33 input analog mode 
p34-p37 outputs 

Refresh all the P2M pins which have are 
always the same when we get here 
set port 2 mode 

test for the vacation change flag 
if no change the skip 

test for in vacation 
vac clear 
set vacation 
set the change 

; clear vacation mode 

; one shot 

; set skip flag 

; set the non vol address to the VAC flag 

; store the vacation flag 

; write the value 

; clear skip flag 

; test for the change flag 
; if nc change skip updating 

; If we're in learn mode 

; then don't refresh the limits! 

; If we are going to travel up 
; then read the up limit 

; If we are going to travel down 
; then read the down lirr.it 

; Nc limit on this travel... 



skipradio, #noeecomx 
address, #uplikaddr 
readmemory 

uf_lik:t_h:, ktekfk ; 
uf_limit_lo, mtempl 

Fir st Run 
MTEMPL, #10 
MTEMPH, #C0 

FirstRun 

MTEMPL, #L0WiPP0IN7PULSES; ; 
MTEMPH , #HIGH ( PPOINTPULSES ) 
nc, CalcMaxLocp 



; Skip radio EE PROM reads 
Read the up limit 



Calculate the highest possible value for pass count 
Bias back by 1" tc provide margin of error 



; Count pass points until value goes positive 



Pas sC cunt er , #C1000G00c ; Test for a negative pass point count e: 

z, CounterGoodI ; if not, no lower bounds check needed 

DN_LIMZT_HI , PKIGH {PPOINTPULSES - 35) ; If the down limit is lew er.cugh 
ugt, Counter IsNegl ; then the counter can be necative 
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jr ult, ClearCount ; Else, it should be zero 

cp DN_LIMIT_LO, #LOW(PPOINTP'JLSES - 35) 

jr uge, CounterlsNegl ; 
ClearCount : 

and PassCounter, # 10000000b ; Reset the pass point counter to zero 

jr CounterGoodl ; 

CounterlsNegl: 

or PassCounter, #01111111b ; Set the pass point counter to -1 

CounterGoodl : 

cp UP_LIMIT_HI, #0FFH ; Test to make sure up limit is at a 

jr nz, TestUpLimit2 ; a learned and legal value 

cp UP_LIMIT_LC, #0FFK 

jr z, LimitlsBad 

jr LimitsAreDone ; 

TestUpLimit2 : 

cp UF_LIMIT_HI, #0D0K ; Look for up limit set to illegal value 

jr ule, LimitlsBad ; If so, set the limit fault 

jr LimitsAreDone ; 

ReadDnLimit : 

Id SKIPRADIO, #NOEECOMN / Skip radio EE PROM reads 

Id ADDRESS , #DKLIKADDR ; Read the down limit 

call RE A DMEMOR V 
di 

Id DN_LIMIT_HI, MTEKPH 

Id DN_LIMIT_LO, MTEKFL 
ei 

clr SKIPRADIO 

cp DN_LIMIT_K1, #00K ; Test to make sure down limit is at a 

jr nz, TestDcwnLimit2 ; a learned and legal value 

cp DN_LIMIT_LO, #0QK 

jr z, LimitlsBad ; 

jr LimitsAreDone 
TestDownLimit2 : 

cp DN_LIHIT_HI, #020H ; Look for down limit set to illegal value 

jr ult, LimitsAreDone ; If not, proceed as normal 

LimitlsBad: 

Id FAULT CODE, #"? ; Set the "no limits" fault 

call SET_ST0P_STA7E ; Stop the GDO 

jr Limit sAr eZc r.e 

SkipReadLimir s : 
LimitsAreDone: 

Id SKIPRADIO, #KOEECO!-::-: ; Turn off the radio read 

Id ADDRESS, # LASTSTATEADDR ; Write the current state and pass count 

call READMEKOr.V 

Id MTEMPH, PassCounter ; DON'T update the pass point here! 

Id MTEMPL, STATE 

call WRITEMEMORY 
clr SKIPRADIO 

Id OnePass, STATE ; Clear the one-shot 

cp *0""7K ; Test for successful learn cycle 

jr nz, DontWriteLimits ; If not, skip writing limits 

WriteNewLimits : 

cp STATE, #STOF 

jr nz, WriteUpLir.it ; 

cp LIM_TEST_HI, *0C ; Test for (force) stop within 0.5" of 

jr nz, WriteUpLirr.it ; the original up limit position 

cp LIK_7ES7_LC, ¥ li 

jr ugt, WriteUpLirr.it ; 
BeckCffVpLir.ii: ' ; 

ado U?__Lir-:i;_L2, ? 1 c ; Back off the up limit by 0.S" 

adc UP_LIMI7_HI, #00 
WriteUpLimit : 

id SKIPRADIO, #I;OEECOMM ; Skip radio EE PROM reads 
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ADDRESS, #UPLIMADDR 

MTEMPH, UP_LIMIT_HI 
MTEMPL, UP_LIMIT_LO 

WRITEMEMORY 



MTEMPH , DN_LIMIT_H I 
MTEMPL, DN LIMIT_LO 



Id 
di 
Id 
Id 
ei 

call 
WriteDnLimi t : 

Id ADDRESS, #DNLIMADDR 

di 
Id 
Id 
ei 

call WRITEMEMORY 
WritePassCount : 

Id ADDRESS, #LASTSTATEADDR 

Id MTEMPH, PassCounter 

Id MTEMPL, STATE 

call WRITEMEMORY 

Clr SKIPRADIO 

clr L_A_C 

or ledport , #ledh 

DontWriteLimits : 



Read the up limit 



srp 
clr 
Id 
Id 

call 
inc 

jr 
inc 

jr 

call 
inc 
call 
inc 

inc 

COUNTER 2 DONE 
call 
Id 

call 

and 

or 

Id 

Id 

Id 

call 
jr 

COUNTER 1 DONE 
call 

CDONE: 

clr 

NOCHANGEST: 
call 
di 
cp 
jr 

RESET: 

jF 

TESTRFM: 
cp 



Read the up limit 



#LEARNEE_GRP 
STACKFLAG 

SKIPRADIO, #NOEECOMX 
address, #CYCCOUNT 
READMEMORY 
m temp I 

nz , COUNTER1DONE 
mtemph 

nz, COUNTER2DONE 

WRITEMEMORY 

address 

READMEMORY 

mtempl 

nz, COUNTER2DONE 
mtemph 

WRITEMEMORY 
address, #CYCC0UN7 
READMEMORY 

mtemph, #000011115 
mtemph, #5 OH 
ADDRESS, KZ EM PK 
mtempl , DN FORCE 
mtemph, UP FORCE 
WRITEMEMORY 
CDONE 

WRITEMEMORY 
SKIPRADIO 



LEARN 

BRPM_COUNT, RPM_COUNT 
z , TESTRPM 



E r. ?K_7 I KE_CV 7 , R ?:._T Z M£_OV7 
nz,RESE7 

BFORCE_IGNORE, FORCE_IGNORE 
nz, RESET 



; Write the current state and pass count 
Update the pass point 



Leave the learn mode 
turn off the LED for program mode 



set the register pointer 
; clear the flag 
; set skip flag 

; set the non vol address to the cycle c 
; read the value 
increase the counter lower byte 

increase the counter high byte 

store the value 

; get the next bytes 

; read the data 
increase the counter low byte 

increase the vounter high byte 

save the value 

i 

; read the data 
find the force address 



set the address 
read the forces 



write the value 

done set the back trace 

got the new address 

; clear skip flag 

; do the learn switch 
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i 



di 

cp 

jr 

cp 

jr 

cp 

jr ■ 

ei 

TESTRS232; 

SRP 
tern 
jP 

cp 

jP 
cp 

jp 

cp 
jr 

call 
jP 



NotRs3C: 



cp 
jr 

call 
jp 



NotRs3E : 



Id 
Id 

add 

adc 

add 

adc 

add 

adc 

call 

jP 



BAUTO_DELAY , AUTO_DELAY 

nz , RESET 

BCMD_DEB, CMD_DEB 

nz , RESET 

BSTATE, STATE 

nz, RESET 



#TIMER_GROUP 
RS_COUNTER, #000011115 
nz, SKIPRS232 

rscommand, # • V ' 
ugt, ClearRS232 
rscommand, # 1 0 ' 
ult,ClearRS232 
rscommand, # '< * 
nz, NotRs3C 
GotRs3C 
SKIPRS232 

rscommand, # 1 > ' 
nz, NotRs3E 
GotRs3E 
SKI PRS2 32 



rs_temp_hi, #KIGK (RS232 JumpTable- (3**0*) ) 
rs_temp_lo, #LOW (RS232 JumpTable- (3* • 0 ' ) ) 

rs_temp_lc, rscommand 
rs_temp_hi, #00 
rs_temp_lo, rs command 
r s_ t emp_h i , # 0 0 
rs_temp_lo, rs command 
rs_temp_hi, #00 
@rs_temp 
SKIPRS232 



; If we are at the end of a word, 
then handle the RS232 word 



test for in range 
if out of range skip 
If we are reading 
go straight there 



If we are writing EE PROM 
go straight there 



; address pointer to table 
/ Offset for ASCII adjust 

look up the jump 3x 

look up the jump 3x 

look up the jump 3x 

call this address 
done 



RS232 JumpTable : 



jp 


GotRs 30 


jp 


GotRs31 


jp 


GctRs52 


jp 


GotRs 3 3 


jp 


GotRs34 


jp 


GotRs35 


jp 


GotRs36 


jp 


GotF.s37 


jp 


GotRs3S 


jp 


GotRs39 


jp 


GctRsSA 


jp 


GotRs 3B 


jp 


GotRs3C 


jp 


GotRs3D 


jp 


GotRs3E 


jp 


GotRs 3F 


jp 


GctRs40 


jp 


GotRs41 


jp 


GotRs42 


jp 


GotRs 4 3 


jp 


GotRs 4 4 




GctRs4 


jp 


GotRs 4c 


jp 


GotRs47 




GctRs4= 


jp 


GctRs 4 r 


jp 


GotRs4A 


jp 


Gct?.s4H 


jp 


GctRs4C 
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jp- GotRs4D 

jp GotRs4E 

jp GotRs4F 

jp GotRsSO 

jp GotRs51 

jp GotRs52 

jp GotRs53 

jp GotRs54 

jp GotRsSS 

jp GotRs56 

ClearRS232: 

and RS_COUNTER, #11110000b ; Clear the RS232 state 

SKIPRS232 : 

UpdateForceAndSpeed : 

; Update the UP force from the look-up table 

srp #FORCE_GROUP ; Point to the proper registers 

Id f orce_add_hi, #KIGH ( f orce_table ) ; Fetch the proper unsealed 

Id f crce_add_jc, #LO>; { f orce_table ) ; value from the ROM table 
di 

add force_add_lo, upforce ; Offset to point to the 

adc force_add_hi, #0C ; proper place in the table 

add f orce_add_ic, upforce ; x2 

adc f orce_add_hi, #00 ; 

add f orce_add_lo, upforce ; x3 (three bytes wide) 

adc f orce_add_hi, #00 

ei 

ldc f orce_temp_cf , C c force_add ; Fetch the ROM bytes 

incw force_add ; 

ldc f orce_temp_hi , @fcrce_add ; 

incw force_add ; 

ldc f orce_temp_lo, 3force_add 

Id Divisor, PcwerLevel ; Divide by cur current force level 

call ScaleTheSpeec ; Scale to get our proper force numbe 

di ; Update the force registers 

Id UF_FCRCE_KI, f orce_terr.c_r.i 

Id U?_FORCE_LO, f or ce_temp_lc 
ei 

; Update the DOWK force from the look-up table 

Id force_add_hi, #K1GH ( f orce_tabie ) ; Fetch the proper unsealed 

Id force_add_lo, #LOW ( f cr ce_table ) ; value from the ROM table 
di 

add f orce_adc_ic, dnforce ; Offset to point to the 

adc force_add_hi, #00 ; proper place in the table 

add force_add_ic, dnforce ; x2 

adc force_add_hi, #0C 

add f orce_add_lc, dnforce ; x3 (three bytes wide) 

adc f orce_add_hi , #00 

ei 

ldc force__temp_of , @force_add ; Fetch the ROM bytes 

incw force_add 

ldc I orce_terr.p_r.i , C c f c r ce_acc 

incw force_adc 

ldc f crce_te~c_lc / C c fcrce_ddc ; 

Id Divisor, PowerLevel ; Divide by our current force level 

call ScaleTheSpeec ,- Scale to get our proper force nur.be 
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di 

Id DN_FORCE_HI, f orce_temp_hi 

Id DN_FORCE_LO, f orce_temp_lo 
ei 



) 

Update the force registers 



Scale the minimuir; speed based on force setting 



cp 


STATE, #DN_DIRECTION 




; If w 'r traveling down, 


jr 


z, SetDownMinSpeed 


i 


then use the down force pot for min. speed 


SetUpMinSpeed 








di 






; Disable interrupts during update 


Id 


MinSpeed, UPFORCE 




; Scale up force pot 


jr 


MinSpeedKath 






Set DownK i n S pe e d : 






di 








Id 


MinSpeed, DN FORCE 




; Scale down force pot 


MinSpeedKath: 








sub 


MinSpeed, #24 


* 


pot level - 24 


jr 


nc, UpStep2 




; truncate off the negative number 


clr 


MinSpeed 




i 


UpStep2 : 








rcf 






; Divide by four 


rrc 


MinSpeed 






rcf 








rrc 


MinSpeed 






. add 


MinSpeed, #4 


i 


Add four to find the minimum speed 


cp 


MinSpeed, #12 


r 


Perform bounds check on minimum speed. 


jr 


ule, MinSpeedOkay 




; Truncate if necessary 


Id 


MinSpeed, #12 






MinSpeedOkay: 








ei 






Re-enable interrupts 


; Make 


sure the workiight is at the proper 


time on power-up 




Lir-eFer, #3€ 


i 


Test for a 50 Kz system 


*■ 


ult, TestRadicDeadTine 




; if not, we don't have a problem 


cp 


LIGHTJTIMER_KI , # CFFH 




; If the light timer is running 


jr 


z, TestRadioDeadTime 




; and it is greater than 


cp 


LIGHTJTIMER_HI , #EUR0_LIGH7_HI 




the European time, fix it 


jr 


ule, TestRadioDeadTime 






call 


SetVarLight 




r 



TestRcdicDeacTime : 



jp nz, MAINLOC? 

clr RadicC 

clr RFlag 

jp MAIKLCOF 



; test for too long dead 
if not loop 

; clear the radio counter 
; clear the radio flag 
; loop forever 



Speed s 

ScaleTheSpeed: 

clr 
Id 

DivideLoop: 
rcf 
rlc 
rlc 

rlc 



aline (i.e. Division) routine 



or 

Eit IsDcr.e : 
dir.z 



TestReg 
loopreg, #24 



f crce_temp_lc 
f orce_temp_hi 

f orce_temr_cf 
TestRer 
TestReg, Divis 



Testneg, .;v;s;: 

force_t emp_lo, #00000001b 

loopreg, DivideLoop 



; Loop for all 24 bits 

; Rotate the next bit into 
the test field 



Test to see if we can subtract 
If we car. 1 1, we're ell dcr.e 
Subtract the divisor 
; Set the LSB to mark the subtract 



; Loop for all bits 



Page 37 of 97 



i 



DiyideDone: 

; Make sure the result is under our 500 ms limit 

cp force_temp_of , #00 ; Overflow byte must be zero 

nz , ScaleDown ; 
force_temp_hi, #0F4H 
ugt, ScaleDown ; 

ult, DividelsGood ; If we're less," then we're okay 

force_temp_lo, #024H ; Test low byte 

ugt, ScaleDown ; if low byte is okay, 



3r 
cp 

jr 
jr 
cp 
jr 

DividelsGood: 
ret 



; Number is good 



ScaleDown : 
Id 
Id 
ret 



f orce_temp_hi , #0F4H 
force temp lo, #024K 



Overflow is never used anyway 



RS232 SUBROUTINES 



"0" 

Set Command Switch 
GotRs30: 

Id LAST_CMD , M 0AAH 

call CmdSet 
jp NoPos 



; set the last command as rs wall cmd 
set the command switch 



; Clear Command Switch 

GotRs31 : 

call CmdRel 
jp NoFos 



; release the command switch 



; Set Worklight Switch 

GotRs32 : 

call LightSet 
jp NcPcs 



; set the light switch 



; Clear Worklight Switch 

GotRs33 : 

clr ' LIGHT_DEE 
jp NoPos 



Release the light switch 



; "4" 

; Set Vacation Switch 

GotRs34 : 

call VacSet 
jp MoPos 



Set the vacation switch 



; *3- 

; Clear Vacation Switch 

GotRs35: 

clr VAC^DEB 
jp NoPos 



; release the vacation switch 



; "6" 

; Set smart switch 

GotRs3€: 

call SmartSet 
jp NoPos 



. „ 7 « 

; Clear Smart switch set 
GotRs3*? : 



Page 38 of 97 



call SmartRelease 

jp NoPos 

; "8" 

Return Present state and reason for 
GotRs38: 

Id RS232DAT, STATE 

or RS232DAT, STACKREASON 

jp LastPos 

; " 9 " 

; Return Force Adder and Fault 
GctRs39: 

Id RS232DAT, FAULT CODE 

jp LastPos 



that state 



; insert the fault code 



; Status Bits 
GotRs3A: 

cir 

tm 

or 

Lookr cr51 ink ; 



call 
tm 
jr 
or 

ReadLight : 

tm 
jr 
or 

C3ADone : 



cp 

j r 
or 



RS232DAT 

P2, #01000000b 

z, LookForBiink 

RS 2 32 DAT, #0000C001b 



LookFor Flasher 
P2, #BLINK_PIN 
nz, ReadLight 
RS232DAT , #00000010b 



PO , # GOO 00 01 05 
z , C3ADcne 

RS232DAT, #00000100b 



CodeFlag , # REG LEARN 
ul t , LcokFcr Fas s 
RS 2 32 DAT , 4? 0 0 0 1 0 0 0 Ob 



; Reset data 

; Check the strap 

; If none, next check 

; Set flag for strap high 



; If flasher is present, 
; then indicate it 



; read the light 



; Test for being in a learn mode 
; If so, set the bit 



LockFcr Pass : 

tm 

*- 
j - 

tern 
or 

LookForPrct : 
tm 
or 

LookForVac : 

cp 
jP 
or 

?P 



PassCounter, #01iillllb 
z, LcokFcrPrct 
PassCounter, #01111111 b 
z, LcckFcrPrc: 
RS2 32 DAT, #001 000 00b 



ACES z , #101 0 0000 b 
nz, LookForVac 
RS232DAT, #01000000b 



VAC FLAG, #0 0B 
nz , LastPos 
RS232DAT, #00001000b 
Last Pes 



Check for above pass point 
If sc, set the bit 



; Check for protector break/block 
; If blocked, don't set the flag 
; Set flag for protector signal good 



; test for the vacation mode 



GctRs2r : 



Id R S 2 3 2 DAT , L_A_C 

ir Last Pes 



; read the LAC 
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;"Read a word of data from an EE PROM address input by the user 
GotRs3C: 

cp RS_COUNTER, #01 OH 

jr ult, FirstByte 

cp RS_COUNTER, #080H 

jr ugt, Output Second 



; If we have only received the 

; first word, wait for more 

; If we are outputting, 

; output the second byte 



SecondByte : 

Id 

Id 

call 

Id 

Id 

clr 

DP 



SKIPRADIO, #0FFH 

ADDRESS, RS232DAT 

READMEMORY 

RS232DAT, MTEMPH 

RS_TEMP_LO, MTEMPL 

SKIPRADIO 

MidPos 



Read the memory at the specified 
address 

Store into temporary registers 



OutputSecond: 

Id 

jP 



RS232DAT, RS_TEMP_LO 
LastPos 



; Output the second byte of the read 



FirstEyte : 

inc 
ret 



RS COUNTER 



; Set to receive second word 



; Exit learn limits mode 
GotRs3D: 

cp L_A_C, #0C 

jp z, NoPos 

clr L_A_C 

cr ledport, #ledh 

jp NoPos 



; If not in learn mode, 
; then don't touch the learn LED . 
; Reset the learn limits state machine 
turn off the LED for program mode 



; Write a word of data to the address input 
GotRs 3E : 



bv the user 



cp 


R£_ 


_COUNTER, 


# G 1 FH 


jr 


z , 


SecondBy 


te*.*: 


cp 


RS_ 


COUNTER, 


# D2FH 


jr 


z, 


"ThirdByt 


eV.* 


cp 


RS 


_COUNTER, 


#03FH 


jr 




FourthE\ 


teW 



FirstByteW : 
DataDone : 



mc 
ret 



RS COUNTER 



; Set to receive next byte 



SecondByteW : 

Id 
jr 



RS_TEMF__HI, RS2 32DAT 
DataDone 



; Store the address 



ThirdByteW: 



Id 



RS_TEK?_I.C, 



* d. £ c J h. . 



Store the high byte 



'.'lev. 



cp 

jr 



RS_TEMP_HI, #03FH 
ugt, FailedWrite 



; Test for illegal address 
; If sc, don't write 
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Id SKIPRADIO, #OFFH 

Id ADDRESS, RSJTEMP_HI 

Id MTEMPH, RSJTEMP_LO 

Id MTEMPL, RS232DAT 

call WRITEMEMORY 

Clr SKIPRADIO 

Id RS232DAT, #0OH 

jp LastPos 



\ 

; Turn off radio reads 
Load the address 
and the data for the 
EE PROM write 



Re-enable radio reads 
Flag write okay 



FailedWrite : 



Id RS232DAT, # OFFH 

jp LastFos 



Flag bad write 



; Suspend all communication for 30 seconds 
GotRs3F: 

clr RS COMMAND 



DP 



NoPos 



Throw out any command currently 
running 

Ignore all RS232 data 



; Force Up State 
GotRs40 : 
cp 

jr 
cp 

jP 
cp 

jP 
Id 

call 
jP 

dcntup: 

Id 

call 
jp 



STATE, #DN_ DIRECTION 
z, dontup 
STATE, #AUTO_REV 
2, NoPos 

STATE, #UP_PCSITION 
z, NoPos 
REASON, #00H 
SETJJ P_D I RESTATE 
NoPos 

REASON , #0GH 
S£T_AREV_ STATE 
NoPos 



; If traveling down, make sure that 
; the door autoreverses first 
; If the door is autoreversing or 
; at the up limit, don't let the 
up direction state be set 

i 

Set the reason as command 



Set the reason as command 

; Autoreverse the door 



; Force Down State 
GctRs4I : 

cp 

jp 



STATE, #5h 
2, NoPcs 



clr REASON 

call SET_DN_DIR_STA7E 

jp NoPos 



test fcr the down position 



Set the reason as command 



; "B" 

; Force Stop State 
GotRs42 : 

clr REASON 

call SE7_S70F_STA7E 

jp NoPos 



Set the reason as command 



; Force Up Limit State 
GotRs4 3: 

clr REASON 

call SET_UP_POS_STATE 

jp NoPos 



; Force Dowr. Limit State 

clr RE A SDN 

call SET_DN_POS_STATE 

ir NcFos 



; Set the reason as command 



; Set the reason as command 
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\ 

f "E" 

; Return min. force during travel 
GotRs4 5: 

\ Id RS232DAT,MIN_RPM_HI ; Return high and low 

cp RS_COUNTER, #090h ; bytes of min. force read 

jp ult,MidPos 

Id RS232DAT,MIN_RPM_LO 

jp LastPos ; 



; W F" 

; Leave RS232 mode -- go back t: scanning for wall control switches 
GotRs4€: 



clr RsMode 

Id STATUS, # CHARGE 

clr R5_C0UNTER 

Id Tscommand, #OFFH 

ret 



; Exit the rs232 mode 

; Scan for switches again 
; Wait for input again 
; turn off command 



; "G" 

; (No Function) 

GotRs47: 

jp NoPos 



; "H" 

; 45 Second search for pass point the setup for the door 
GotRs48: 

Id SKIPRADIO, #OFFK ; Disable radio EE PROM reads / writes 

Id MTEMPH, # OFFK ; Erase the up limit and down limit 

Id MTEMFL, # OF FH ; in EE PROM memory 

Id ADDRESS , rUFLIKAOD?. 

call WRITEMEMORY 

Id ADDRESS, ti DHL I MAD DR 

call WRITEMEMORY 

Id UP_LIMIT_HI, #HIGK (SetupPos) ; Set the door to travel 

Id UF_LIMIT_LC, #LOV; i Setup Pes ) ; to the setup position 

Id POSITIOK_KI, #04 OH ; Set the current position to unknown 

and PassCounter, * 1 DCOOCC-Oc ; Reset to activate on first pass point seen 

call SET__Ur_LIR_STA7E ; Force the door to travel 

id One Pass , S~:-~Z ; without a limit refresh 

jp NoPos 



Return radio drcp-c 



GotRs4 9 : 



clr RS232DAT 

cp RTO, #RDROPTIMH 

jp uge, LastFos 

com RS2 32DAT 

jp LastPos 



Return current position 



GotRs4A: 



Id RS232DAT, POSITION_HI 

cp RS_COUNTER ,#09 OH 

jp ult,MidPos 

Id RS232DAT, POSI?IOK_LC 

jp LastPcs 



; Initially say no radio on 
; If there's no radio on, 
then broadcast that 

; Set data to FF 



Test for no words out yet 
If not, transmit high byte 



; "K" 

; Set radio Received 
GotRs4B: 

cp L_A_C, fCOK 



[f we were positioning the up limit, 
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jr 


ult, NormalRSRadio 


; then start the learn cycle 


jr 


z, FirstRSLearn 


i 


cp 


L_A_C, #071H 


; If we had an error, 


jp 


nz, NoPos 


; re-learn, otherwise ignore 


ReLearnRS : 






Id 


L_A C, #072H 


; Set the re-learn state 


call 


SET JJ P_D I R_ST ATE 




DP 


NoPos 


i 


FirstRSLearn: 






Id 


L_A C, #07 3H 


; Set the learn state 


call 


SET_UP_POS_STATE 


; Start from the "up limit" 


jP 


NoPos 




NormalRSRadic 






clr 


LAST CMD 


; mark the last command as radio 


Id 


RADIO_CMD, #0AAH 


; set the radio command 


3P 


NoFos 


; return 



; "L" 

; Direct-connect sensitivity test toggle worklight for any code 
GotRs4C: 

; clr RTO ; Reset the drop-out timer 

; Id CodeFiag, #SENS_TEST ; Set the flag to test sensitivity 

jp NoPos 

; "K" 
GotRs4D: 

jp NoPos 



"N" 

If we are within the first 4 seconds and RS232 mode is not yet enabled, 
then echo the'nybble on P30 - F33 on all other nybbles 
(A.K.A. The 6600 test) 
GctRs 4 E : 



cp SDISABLE, #32 

jp ult, ExitNoTest 



di 
Id 

Cl2 

Id 
Id 
Id 

wr>: 



COUNT_HT, #002H 
CO'JN7_LC 

F01M, #oooc:ioci 

F2K, #00000000:: 
F3K, #000000015: 



If the 4 second init timer 

; is dene, don*t do the test 



Shut down all other GDO operations 
Set up to loop for 512 iterations, 
totaling 13.05€ milliseconds 
Set all possible pins of micro, 
to outputs for testing 

Kick the dog 



Timing Loop : 



clr REGTEMP 

Id REGTEMP2 , P3 

and REGTEMF2, #0C0Cliilb 

or REGTEMP, REGTEMP2 

swap REG7EKFZ 

or REGTEMP, REGTEMP 2 

Id PC, REGTEMP 

id F2, REGIE!-:? 

Id P3, REGTEMP 

decw COUNT 

jr nz, TimingLoop 

jp START 



; Create a byte of identical nybbles 
; from P30 - P33 to write to all ports 



Echo the nybble to all ports 

Loop for 512 iterations 
When done, reset the system 



; Return max. force during travel 

Got?.s4 F : 

Id RS2 32 DAT , P32_MAX_HI ; Return high and low 

cp RS_COUNTE R ,¥05 Oh ; bytes of max. force read 

jp ult , KidPcs 
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Id RS232DAT, P32_MAX_LO 

jp LastPos 



; Return the measured temperature range 
fcotRs50: 



jr 



NoPos 



; Return address of last memcry matching 

; radio code received 

GotRsSl: 



Id 

jr 



RS232DAT, RTEMP 
LastPos 



; Send back the last matching address 



Ne ultra board present 



; Set Rs232 mode 

; Return Version 

GotRs52 : 

clr UltraErc 

SetIntoRs232 : 

Id RS232DAT, #VERSIONNUK 

cp RsMode,#00 
jr ugt, LockedlnNoCR 

Id RS232DA7, #0BBK 

LockedlnNoCR: 

Id RsMode,#32 
jr LastPos 



; Clear flag for ultra board present 

; Initially return the version 

; If this is the first time we're 

; locking RS232, signal it 

; Return a flag for initial RS232 lock 



Set Rs232 mode Ultra board present 
Return Version 
GotRs53 : 



j r NoPos 

i 

Range test - 
is received 
GotRs54 : 



toggle wcrklight whenever a good memory-matching code 



clr RTO 

Id CodeFiag, #RA::3E7E57 

jr NoPos 



; Reset the drop-out timer 

; Set the flaa to test sensitiviz- 



; "U" 

; (No Function) 
GotRs55 : 



jr 



NoPos 



; Return current values of up and down force pots 
GctRs5€: 



Id RS232DAT, UFFORCE 

cc ?. s^ccvntir 

jp ult, Micros 

Id RS232DAT, DKECRCE 



Return values of up and down 

force octs. 



KidPos: 



cr 



"counter 



f 1 OOOOC'C 05 



Set the output mcae 
Transmit the next byte 
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jr 



RSDone 



LastPos : 
Id 
Id 
jr 

ExitNoTest : 
NoPos : 

clr 
Id 

RSDone: 

Id 

Id 

or 

and 

ret 



RS^COUNTER , # 1 1 1 1 0000B 
rscommand, # OFFK 
RSDone 



RS_COUNTER 

rs command, #0FFH 

RsMode, #32 
STATUS , #RSSTATUS 
P3, #CHARGE_SW 
F3, #-DIS SW 



exit 



Exit 



set the start flag for last byte 
Clear the command 



Wait for input again 
turn off command 



Set the wall control to RS232 
Turn on the pull-ups 



Radio interrupt from a edge of the radio signal 



RAD I 



INT: 



RTIMEOK 



push 


RF 


srp 


#RadioGroup 


Id 


rtemph,TOEXT 


Id 


rtempi , TO 


tm 


IRQ, #00010000E 


jr 


2 , RTIMEOK 


tm 


rtempi, #100000005 


jr 


z, RTIMEOK 


dec 

<: 


rtemph 


clr 


R_DEAr_TIME 


.IF 


TwoThirtyThree 


and 


IMR, #11111110E 


. ELSE 




and 


IMR, #11111100E 


. END IF 




Id 


RT ime DH , RT ime ? H 


Id 


RTimeDL, RTimerL 


sub 


RT ime DL , rtempi 


sbc 


RTimeDH, rtemph 



RT I ME DONE: 

tm P3, #000001005 

jr nz, ACT I VET IME 

IN ACT I VET I ME: 

cp RINFILTER, #0FFK 

jr z , GO INACTIVE 

jp RADIO_EXIT 

GOINACTIVE: 



; save the radio pair 

; set the register pointer 

; read the upper byte 

; read the lower byte 
; test for pending int 
; if not then ok time 

; test for timer reload 

; if not reloaded then ok 

; if reloaded then dec high for sync 

; clear the dead time 



; turn off the radio interrupt 
; Turn off the radio interrupt 

find the difference 



in past time and the past time ir. temp 

; test the port for the edge 

; if it was the active time then branch 



; test for active last time 
; if so continue 

; if not the return 



.IF TwoThirtyThree 
or IRQ, #01000000E 

. ENDIF 



; set the bit setting direction to pos edge 



clr RINFILTER 

Id rt ime ih, RTimeDH 

id rtimeii , RTime^L 

Id RTime PH, rtemph 

Id RTime?!, -tempi 



set flag to inactive 

•transfer difference tc inactive 

transfer temp into the past 



CP radioc,#0IH 
J? N2, RADIO EXIT 



/•inactive time after sync bit 
;exit if it was not sync 
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TM 



RadioMode, #ROLL_MASK ;If in fixed mode, 

;no number counter exists 
; 2. 5 6ms for rolling code mode 

;pulse ok exit as normal 
;if pulse is longer, bogus sync, restart sync search 
; return 



; test for the max width 5.16ms 
; pulse ok exit as normal 
;if pulse is longer, bogus sync, restart sync search 

; return 



JR 


z, FixedBlank 


CP 


rtimeih, #0AH 


JP 


ULT,RADIO_EXIT 


CLR 


radioc 




RADIO_EXIT 


FixedBlank : 




CP 


rtimeih, #014K 


JP 


ULT,RADIO_EXIT 


CLR 


radioc 


jP 


RADIO_EXIT 


ACT I VET I ME : 




cp 


RINFILTER, #00K 


jr 


2, GOACTIVE 




RADIO EXIT 


GOACTIVE: 





; test for active last time 
; if so continue 
; if not the return 



.IF 

and 



TwoThirtyThree 
IRQ, #0011111 IB 



clear bit setting direction to neg edge 



RINFILTER, #0FFH 
rtimeah, RTimeDH 
rtimeal , RTimeDL 
RTimePH, rtemph 
RTimePL, r tempi 



Id 
Id 
Id 
Id 
Id 

GotBothEdges : 

ei 

cp radioc, #1 

jp ugt,INSIG 
. IF UseSiminor 
DP 

.ENDIF 

inc 



BlankSkip: 
SyncOk : 



Fixecsvnc : 



SET1: 



SYNC 



z , CheckSimir.cr 
radioc 



TM RFiag, #OC100000B 

JR NZ, BlankSkip 

cp RadicTimeOut , t 10 

jr ult, Clear Jump 

OF. RFlag, #CC100C0C = 

cp r t imeah , ¥ 0 Oh 

jr z , Jus tNcise 



transfer difference to active 
transfer temp into the past 



; enable the interrupts 

; test for the blank timing 

; if not then in the middle of signal 

; Test for a Siir.inor tx-on the first bit 

set the counter to the next number 

;Has a valid blank time occured 



; test for the min 10 ms blank time 
; if not then clear the radio 

; blank time valid! no need to check 

; test first the min sync 

; if high byte 0 then clear the radio 



TM RadioMode, #ROLL_MASK 

JR z , Fixedsync 

CP rtimeah, #09h 

JR uge, Jus^Ncise 

JR SET1 

cp rz imeah , # 0 1 2 h 

jr uge, JustNoise 



clr PREVFIX 

cp rtimeah, SyncThresh 

jr uge, SYK C 3 FLAG 

rm RF lac, #010C0000b 



; checking sync pulse width, fix or Roll 
;time for roll 1/2 fixed, 2.3ms 



test for the max time 4 . 6mS 
if not clear 



; Clear the previous "fixed" bit 
test for 1 or three time units 
; set the sync 3 flag 

;Was a sync 1 word the last received? 
if net, then this is an A (or D cede 



SETBCCODZ : 



16 



racicSh, radiclh 



; Store the last sync 1 word 
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JustNoise : 



SETADCODE : 



Id radio31, radioll 

or RFlag, #000001105 

and RFlag, #11110111b 

jr BCCODE 

CLR radioc 

JP RADIO EXIT 



;Set the B/C Code flags 
; Clear the A/D Code Flag 



;Edge was noise keep waiting for sync bit 



BCCODE : 



SYNC 3 FLAG : 



DONESET1 : 
RADIO EXIT: 



or 


RFlag, #00001000b 






or 


RFlag, #01000000b 


• set the sync 1 memory 


flag 


clr 


radiolh < 


; clear the memory 




clr 


radiol 1 






clr 


COUNT 1H 


• clear the memory 




clr 


COUNT 1L 






jr 


DONESET1 


f do the 2X 




and 


RFlag, nOllllllb 


t set the sync 3 memory 


flag 


clr 


radio3h 


• clear the memory 




clr 








clr 


COUNT 3 K 


; clear the memory 




clr 


COUNT3L 






clr 


ID B 


; Clear the ID bits 




and 


SKIPRADIC, # LOVC(-NOINT) ; Re-enable radio ints 




pop 








iret 


; done return 





Clear Jump : 

.IF 

SimRadic : 

SimBitOne : 

SimBitZero: 
RotatelnBit : 



or 
jP 



F2, #10000000b 
ClearRadio 



UseSiminor 



tm 
3- 



sci 
j r 



rcf 



rrc 
rrc 
rrc 
rrc 
rrc 
rrc 



rtimeah, #200CGG00fc 
nz, S;-3:tZer: 



RotatelnBit 



CoceTO 
CodeTI 
CodeT2 
CodeT3 
CodeT4 
CodeT5 



turn of the flag bit for clear radio 
; clear the radio signal 



Test for inactive greater than active 
; If so, binary zerc received 



Set the bit 



Shift the new bit into the 
radio word 



racicc 



cc racioc, ¥ - 128' ; Tes 

jp z, KnowSimCode 

ic RADIO EXIT 



; increase the counter 

for all 4c tits receive: 
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CheckSiminor : 



tm RadioMode, #ROLL_MASK 

jr 2, INSIG 

cp RadioTimeOut , #35 

jr ugr r INSIG 



or RadioC, #10000000b 

clr ID B 



. ENDIF 



INSIG: 



ISigOk: 



ASigOk : 



AND • RFiag, #110illllB 

cp rtimeih, #024H 

jr uge, Clear Jump 

cp rtimeih, #00h 

jr z, Clear Jump 

cp rtimeah, #014K 

jr uge, Clear Jump 

cp rtimeah, #OCh 

jr z,ClearJump 

sub rt imeal , rtimeii 

sbc rtimeah, rtimeih 



; If not in a rolling mode, 
; then it can't be a Siminor transmitter 
If the blank time is longer than 35 ms, 
; then it can't be a Siminor unit 

Set the flag for a Siminor signal 
; No ID bits for Siminor 



; clear blank time good flag 
test for the max width 5.16 
if too wide clear 
test for the min width 

; if high byte is zero, pulse too narrow 

test for the max width 
if too wide clear 
if greater then 0 then signal ok 
; if too narrow clear 

; find the difference 



. IF 



UseSiminor 



tm 



. ENDIF 



RadioC, #I0000000b 
nz, SimRadic 



If this is a Siminor code, 
then handle it appropriately 



POSDIFF2: 
NEGDIFF2: 

BITIS3: 

EIT2COM? : 
BITIS2: 

BITIS1: 

G0TRAD5IT: 



ADDRADBIT: 



tm rtimeah, #l0000000b 

jr nz , NEGDIFF2 

jr P0SDZFF2 

cp rtimeah, BitThresh 

jr ult,BITIS2 

jr BITIS3 



com rtimeah 

cp rtimeah, Eit Thresh 

jr ult,BIT2COM? 

jr e:t:s: 

Id RADIOEI7, #2h 

jr G0TRAD5IT 

com rtimeah 

Id RADIOEIT, #lh 

jr GOTRADBIT 

com rtimeah 

Id RADIOS IT , #0h 

clr rtimeah 

clr rtimeal 

clr rtimeih 

clr rtimeil 
ei 

Se tRpToRacio2Gr cur 

srp #Racic2Group 

tr. rfias, *:-:occcc:-b 

jr nz, ?.::;::: 



find out if neg 

; use 1 for ABC or D 



test for 3/2 

; mark as a 2 



; invert 
; test for 2/1 
; mark as a 2 



set the value 

; invert 
set the value 



; invert 
set the value 



clear the time 



; enable interrupts — REDUNDANT 

;Kacro for assembler error 
; — this is what it does 

; test for radio 1/3 



RC3INC: 



tm 



RadioMode, #RG1L MASK 



;If in fixed mode, 
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J 





z, Radio3F 




; no number counter exists 




tm 


RadioC, #00000001b 




; test for even odd number 




jr 


nz,COUNT3lNC 


; if 


EVEN number counter 










; else radio 




call 


GETTRUEFIX 




;Get the true fixed bit 




cp 


RadioC, #14 




; test the radio counter for the specials 


-i v 






; save the special bits seperate 




srp 


#RadioGrcuc 








di 






; Disable interrupts to avoid pointer 


rol 1 i ^ t on 

w \-> -1. -± J. O -L Ui i 


Id 


pointerh, #Radio3H 




; get the pointer 




Id 


pointerl, #Radio3L 








jr 


AddAll 








cp 


RadioC, #20 




; test for the switch id 




jr 


z,SWITCHID 




; if so then branch 




Id 


PTer.pK, id_b 




; save the special bit 














add 


id b, RT empH 




; *3 




add 


id_b, radiobit 


; add 


in the new value 




jr 


Radio3R 








cp 


id_b, #18 




; If this was a touch code, 




jr 


uge, Radio3R 


; then we already have the ID bit 




Id 


sw_b, radiobit 


; save the switch ID 




jr 


Radic3R 








tm 


RadioMode, #ROLL MASK 


;If in fixed mode, no number counter 




j r 


z, RadiolF 








tir. 


RadioC, fOCGGOGGlc 




; test for even odd number 




j r 


nz, COUNT1INC 


; if 


odd number counter 










; else radio 




call 


GETTRUEFIX 




;Get the real fixed code 




cp 


RadioC, #02 




;If this is bit 1 of the 1ms code, 




jr 


nz, RadiolF 




;then see if we need the switch ID bi 




tm 


rfiag, #00010C00b 




;If this is the first word received, 




j r 


Z, Sw^IChcit . 


; then 


save the switch bit regardless 




cp 


i G_fc r rl: 




;If we have a touch code, 




jr 


ult, RadiolF 


; then 


this is our switch ID bit 




Id 


sw_b, radiobit 




;Save touch code ID bit 




srp 


#RadioGroup 








di 






; Disable interrupts to avoid pointer 


collision 


Id 


pointerh, #RadiclH 




; get the pointer 




Id 


pointerl, #RadioIL 








jr 


AddAil 








; Chamberlain proprietary 


fixed 


code 




; bit 


decryption algorithm, 


goes 


here 




ret 










id 


rciibit, radiobit 




; Store the roiling bit 




srp 


#RadioGroup 








ci 






; Disable interrupts to avoid pointer 


colli si or. 


id 


p-interh, frC07-:C73H 




; get the pointer 




Id 


pointer!, # COUNT 3 L 










AddAll 
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AddAll: 



ALLADDED: 
FULLWORD? 



ISCCODE: 



FIRST2 0: 



Id 

srp 

di 

Id 

Id 



rollbit, radiobit 
#RadioGroup 

pointerh, #C0UNT1H 
pointerl, #C0UNT1L 
AddAll 



; Store the rolling bit 

Disable interrupts to avoid pointer collision 
get the pointers 



Id 


addvalueh, Gpointerh 


r 


get the value 




aaavaxuei , vpcmiEii 


* 






add 


addvaluel, Gpcinteri 




add x2 




adc 


addvalueh, Gpointerh 


* 






add 


addvaluel, @pointerl 


* 


add x3 




adc 


addvalueh, Gpointerh 








add 


addvaluel , RADIOBIT 




add in 


new number 


adc 


addvalueh, #00h 




i 




Id 


@pointerh, addvalueh 




save the value 


Id 


(apointerl , addvaluel 








ei 






* 


Re-enable interrupts 


inc 


radioc 


r 


increase the counter 


ct 


radio z , MaxBits 






test for full (10/20 bit) word 


DP 


n2 , RRETURN 






if not then return 




is handled 


or 


SKIFRADIO, #NOINT 




i 


Set the flag to disable radio interrupts 


. IF 


TwoThirtyThree 






and 


IMR, #11111 HOB 




I 


turn off the radio interrupt 


. ELSE 








and 


I MR, #I1111100E 




t 


Turn off the radio interrupt 


. ENDIF 








clr 


RadioTimeOut 


* 


Reset 


the blank time 


cp 


RADIOBIT, #00H 






If the last bit is zero, 


jp 


z, ISCCODE 






then the code is the obsolete C code 


and 


RFlag, #121111015 






Last digit isn't zero, clear B code flag 


tm 


RFlsg, #00010 0005 






test flag for previous word received 


jr 


nz, KNOWCCDE 




> 


if the second word received 


or 


RFlag, * 0 0C 1 0 0C CB 






set the flag 


clr 


radicc 




clear 


the radio counter 


DF 


RRETuRK 






return 



.IF UseSimincr 
KnowSimCode : 

; Siminor proprietary rciiing code decryption algorithm goes here 



Id 

clr 
clr 
jP 

.ENDIF 



radi'olh, #0FFK 
Mirror A 
MirrorE 

Counter Corrected 



Set the code to be incompatible with 
the Chamberlain rolling code 



KNOWCODZ : 



■• r 



rsc-_ 0:\i. 

z, Cour 



:er::rrec:ei ; 



;lf net in rolling mode, 
forget the number counter 



; Charr.be r lain proprietary counter decryption algorithm goes here 



Page 50 of 97 



CounterCorrected : 



J 



NcTCode : 



STORECODE : 



srp 


#RadioGroup 






clr 


RRTO 


; clear the got a radio flag 




tm 


SKIPRADIO, #NOEECOMM ; 


test for the skip flag 




■in 
Jr 


nz , CLEARRADIO ; 


if skip flag is active then donot look at 


EE mem 


cp 


ID_B, #18 


;If the ID bits total more than 18, 




jr 


ult, NoTCode 






or 


RFiac, #00000100b 


;then indicate a touch code 




Id 


ADDRESS, # VAC AT I ON ADDR 


; set the non vol address to the VAC 


flag 


call 


READMEMORY 


; read the value 




Id 


VAC FLAG, MTEMPH 


; save into volital 




cp 


CodeFlag, #REGLEARN ; 


test for in learn mode 




jp 


nz , TESTCODE 


; if out of learn mode then test for 


matching 


tm 


RadioMode, #ROLL MASK 


;If we are in fixed mode, 




jr 


z, FixedOnly ;then don't compare the counters 





Compa recount ers : 



cp P Counter A, Mirror A 

jp nz, STORENOTMATCH 

cp PCounterB, MirrorB 

jp nz, STORENOTMATCH 

cp PCounterC, MirrcrC 

jp nz, STORENOTMATCH 

cp PCounterD, MirrorD 

jp nz, STORENOTMATCH 



Test for counter match to previous 

; if no match, try again 
Test for counter match to previous 

; if no match, try again 
Test for counter match to previous 

; if no match, try again 
Test for counter match to previous 

; if no match, try again 



FixedOnly: 



cp PRAD:01K, radicih 

jp nz , STORENOTMAT Zr. 

cp PRADIOIL, radioll 

jp nz , STORENOTMATCH 

cp PRADI03K, radic3h 

jp nz, STORENOTMATCH 

cp PRALI03L, radic2 1 

jp nz , STORENOTMATCH 



test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 



cp 
3 r 



AUXLEARNSW, #116 
uat, CMDONLY 



; If learn was not from wall control, 
hen learn a command cniy 



CmdNotOper 



tm ck:_deb, #1000CCC 
jr nz, CmcOrOCS 



if the command switch is held, 

then we are learning command or o/c/s 



CheckLight : 



LearningLight : 



tm LIGH7_DEB , fclOCOOOOOb 

jp Z, CLEARRADI02 

tm VAC_DEB, #10C00000fc ; 

jp z, CLEARKADIC2 

tm RadioMode, #ROLL_MASK 

jr z, CMDONLY 

Id CodeFlag, #LRN LIGHT ; 

Id BitMask, #01010101b ; 

jr CKr-ON'LY 



; If the light switch and the lock 
; switch are being held, 
then learn a light trans. 



; Only learn a light trans, if we are in 
the rolling mode. 



CmdOrOCS : 



tm LIGK7_DEB, f i; 

jr nz, CMDONLY 



If the light switch isn't being he- 
then see if we are learning o/c/s 



CheckOCS: 
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tm 

3 p 
tm 

jr 

tm 

jr 

Id 

Id 

CMDONLY : 

call 

cp 

jr 

WriteOverOCS : 

dec 
jP 

STOREMATCH: 

CP 
jr 

Id 

call 

tm 

jr 

SetAsFixed : 

Id 

call 
jr 

SetAsRoll : 

Id 

call 

WriteMode : 

Id 

call 
SameRadioMode : 

tm 

3F 
tm 
jr 

ACODE : 

Id 

call 

inc 

inc 

tm 

jr 

RollMem: 

inc 

inc 

and 

cp 

j - 

jr 

FixedMem: 

and 
cp 

j r 

AddressZerc : 

id 

GOTAASDRESS: 

Id 
Id 
LD 



VAC_DEB, # 10000000b ; If the 
2, CLEARRADI 02 
RadioMode, #ROLL_MASK ; 
z, CMDONLY 

RadioC, #10000000b ; If the 
nz, CMDONLY 
CodeFlag, #LRN0CS 
BitMask, #10101C10b ; 



J 

vacation switch isn't held, 
then it must be a normal command 
Only learn an o/c/s if we are in 

the rolling mode, 
bit for siminor is set, 
then don't learn as an o/c/s Tx 
Set flag to learn o/c/s 



TESTCODES ; test the code to see if in memory now 

ADDRESS, DFFH ; If the code isn't in memory 

2, STOREMATCH ; 

ADDRESS 
READYTOWRITE 



RadioMode, #R0LL_TEST ; If we are not testing a new mode, 

ugt, SameRadioMode ; then don't switch 

ADDRESS , #MODEADDR ; Fetch the old radio mode, 
READMEM0RY ; change only the low order 

RadioMode, #R0LL_MASK ; byte, and write in its new value - 

nz, SetAsRcll ; 



RadioMode, #FIXED_MODE 

FixedNums 

WriteMode 



Set the fixed thresholds permanently 



RadioMode, #R0LL_M0DE 
RollNums 



Set the rolling thresholds permanently 



MTEKFL, RadioMode 
WRITEMEMORY 



RFlag, #000000103 
nz, CCODE 
RFlag, #OO00GIC0E 
nz , BCODE 



If the flag for the C code is set, 

then set the C Code address 
test for the b code 
if a B code jump 



ADDRESS, #2BH ; set the address to read the last written 

READMEMORY ; read the memory 

MTEMPH ; add 2 to the last written 

MTEMPH 

RadioMode, #ROLL_MASK ; If the radio is in fixed mode, 

z, FixedMem ; then handle the fixed mode memory 



; Add another 2 to the last written ' 

; Set to a multiple of four 

; test for the last address 

; If not the last address jump 

; Address is now zero 



MTEMPH 
MTEMPH 

MTEMPH , #11111 1 00B 
MTEMPH, #1FH 
ult, GG7AADDRESS 
AddressZero 



MTEMPH, #111111105 ; set the address on a even number 

MTEMPH, #17K ; test for the last address 

ult, GOTAAD DRESS ; if not the last address jump 



MTEMPH, K-C ; set the address to 0 

ADDRESS, #2BK ; set the address to write the last written 

RTemp, MTEMPH ; save the address 

MTEMPL, MTEMPH ; both byce.3 :.-ime 
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CCODE : 



BCODE : 



BRoll: 



BFixed : 



BCODEOK : 

READYTOWRITE: 

NOFIXSTORE: 



LowByte : 

UpByte : 
MaskDone : 



Normal : 

LearnLight : 
LearnOCS: 



call 

Id 

jr 

tm 

jP 
Id 



tm 

jr 

cp 

jP 
Id 
jr 

cp 
jr 
cp 

jr 
jP 

Id 

call 

tm 

jr 

inc 

Id 

Id 

Id 

Id 

call 

call 

com 

Id 

call 

tm 

jr 

and 

jr 

and 

com 

cp 
jr 
cp 
jr 



clr 
jr 



a no 
jr 

cp 

jP 
and 



WRITEMEMORY 
ADDRESS, rtemp 
READYTOWRITE 



; write it 
set the address 



RadioMode, *ROLL_MASK ; If in rolling code mode, 

nz, CLEARRADIO ; then HOW DID WE GET A C CODE? 

ADDRESS, #01AH ; Set the C code address 

READYTOWRITE ; Store the C code 



RadioMode, #RCLL_MASK 
z, BFixed 

SK_B, # ENTER 
nz, CLEARRADIO 
ADDRESS, #2GH 
READYTOWRITE 

radio3h, # 90K 
nz, BCODEOK 
radio31, #29H 
nz, BCODEOK 
CLEARRADIO 

ADDRESS, *1SH 

WRITECODE 

RadioMode, #ROLL_MASK 
z, NOWRITESTORE 
ADDRESS 

RadiolK, MirrorA 
RadiolL, MirrorH 
Radic3H, MirrcrC 
Radio3L, Miner Z- 
WRITECODE 

SetMask 
BitMask 

ADDRESS, #RTY?EADD? 
README MCF.Y 

RFlac, #:oooooooc 

nz, UpByte 

MTEMFL, BitMask 
MaskDone 

MTEMFK, BitMask 

BitMask 

Code Flag, # LRK LIGHT 
z, LearnLight 
CodeFlac, *LRNOCS 
z, LearnOCS 



; If in fixed mode, 
; handle normal touch code 

If the user is trying to learn a key 
; other than enter, THROW IT OUT 
Set the address for the rolling touch code 



test for the 00 code 
test for the 00 code 

; SKIP MAGIC NUMBER 
set the address for the B code 

; write the code in radiol and radio3 



If we are in fixed mode, 

then we are done 

Point to the counter address 

Store the counter into the radio 

for the writecode routine 



Fetch the radio types 

; Find the proper byte of the type 
; Wipe out the proper bits 



BitMask 
BMReady 



If we are learning a light 

set the appropriate bits 

; If we are learning an o/c/s, 
; set the appropriate bits 



Set the proper bits as command 



BitMask, 
BMReady 

SW_E , * C 2 H 
nz, CLEAR RADI 02 
BitMask, telCIOiOlOb 



lc ; Set the proper bits as worklight 
; Bit mask is ready 

; If 'open' switch is not being held, 
,* then don't accept the transmitter 
Set the proper bits as open/close/stop 
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RMReady: 

tm 
jr 

-LowByt2: 

or 
jr 

_UpByt2: 

or 

MaskDon2: 

call 

NOWRITESTORE: 

xor 

or 

Id 

Id 

clr 

clr 

DP 

STORENOTMATCH : 

Id 
Id 
Id 
Id 
tm 

jP 
Id 
Id 
Id 
Id 
3P 

TESTCODE: 

CP 
jp 

tm 
jr 

cp 
jr 

cp 
jr 
cp 
j r 

ZZLearn: 

push 

srp 

call 

pop 

jP 

AorDCode : 

cp 
jr 
cp 

and 

FS1 : 

call 

cp 

j r 

cp 

jr 

cr 

FS2: 



RFlag, #10000000b 
nz, UpByt2 

MTEMPL, BitMask 
MaskDon2 

MTEMPH, BitMask 

WRITEMEMORY 



; Find the proper byte of the type 

7 

; Write the transmitter type in 
/ 

; Write the transmitter type in 

; Store the transmitter types 



pO, #WORKLIGHT 
ledport, #ledh 
LIGHT1S,#244 
LEARNT , # OFFK 
RTO 

CodeFlag 
CLEARRADIO 

PRADIOIH, radiolh 
PRADIGi L, radioli 
PRADI03H, radio3h 
PRATIO? L, radio31 
RadioMode, #ROLL_MASK 
z, CLEARRADIO 
PCounterA, MirrcrA 
PCounterB, MirrorB 
PCounterC, MirrorC 
PCounterD, MirrorD 
CLEARRADIO 

ID_B, #18 
uce, TCReceived 

RFlag, #00000100b 
z, AorDCode 

ZZWIK, #64 
ucz , AorDCode 

RaciolH, #90H 
nz, AcrDCcde 
RadiclL, #29H 
nz, AorDCode 



toggle light 

turn off the LED for program mode 
turn on the 1 second blink 
set learnmode timer 

disallow cmd from learn 
Clear any learning flags 
return 

transfer radio into past 



If we are in fixed mode, 
get the next code 
transfer counter into past 



; If this was a touch code, 
; handle appropriately 

; If we have received a B code, 
; then check for the learn mode 

; Test 0000 learn window 
if cut of window nc learn 



RP 

#LEARNEE_GRP 

SETLEARK 

RP 

CLEARRADIO 



L_A_C, #07 OK 
uge, FS1 
FAULT FLAG, #0FFH 
z, FS1 

ledport, #ledl 



Test for in learn limits mode 

; If so, don't blink the LED 
; test for a active fault 

; if a avtive fault skip led set and reset 
turn on the LED for flashing from signal 



TES7CCDES 
L_A_C, #07 OK 
use, FS2 
FA'JLTFLAG, # j: 
z, FS2 

lecpcrt, #ledh 



; test the codes 
Test for in learn limits mode 

; If so, don't blink the IXZ 
; rest for a active fault 

; if a avtive fault skip led set and reset 
turn off the LED for flashing frorr: signal 
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cp ADDRESS, #OFFh 

jr nz, GOTMATCH 

jp CLEARRADIO 



j 



test for the not matching state 

; if matching the send a command if needed 
; clear the radio 



SimRollCheck: 



inc ADDRESS 

inc ADDRESS 

call READMEMORY 

Id CounterC, MTEMPH 

Id CounterD, MTEMFL 



Point to the rolling* code 
(Note: High word always zero) 
Point to rest of the counter 
Fetch lower word of counter 



UpdateSCode: 



cp CodeT2, CounterC 

jr nz, UpdateSCode 

cp CodeT3, CounterD 

jr nz, UpdateSCode 

jp CLEARRADIO 



Id MTEMPH, Code7 2 

id MTEMPL, CoaeT3 

call WRITEMEMORY 



If the two counters are equal, 
then don't activate 



Counters equal — throw it out 



Always update the counter if the 
fixed portions match 



sub 

sbc 



CodeT3, CounterD 
CodeT2, CounterC 



Compare the two codes 



GOTMATCH : 



tm 
jp 
jP 



tm 
jr 

tm 
jr 

tm 
jr 

cp 



CodeT2, #10000000b 
nz, CLEARRADIO 
MatchGoodSiir. 



If the result is negative, 
; then don't activate 
Match good — handle normally 



Radio^c-cie, #RCLL_KASK ; If we are in fixed mode, 

z, MatchGood2 ; then the match is already valid 

RadioC, #10000000b ; If this was a Siminor transmitter, 

nz, SimRollCheck ' ; then test the roll in its own way 

BitMask, #201Ci010b ; If this was NOT an open/close/stop trans, 



z, RoilCheckB 

SW_B, #02 

nz, MatchGoodC 



then we must check the rolling value 

; If the o/c/s had a key other than '2' 
; then don't check / update the roll 



RollCheckE : 



KatchGood : 



call Test Counter 

cp CM?, * EQUAL 

jp z, NOTNEWMATCH 

cp CMF, #FWDV;iN 

jp nz, CheckPast 

Id RadiolH, MirrorA 

Id RadiolL, MirrorB 

id Radic3H, MirrorC 

Id Radio3L, MirrorD 

dec ADDRESS 

call WRITECODE 



; Rolling mode compare the counter values 

; If the code is equal, 

; then just keep it 
If we are not in forward window, 
then forget the code 



Store the counter into memory 
to keep the roll current 



Line up the address for writing 



MatchGoodOCS: 
MatchGoodSiir.: 



or RFlag, fcOOOOGGCir 
cp RTC, i?.r-?:PTI.M 

jp U 1 1 , K 07 1 « E W: >lr, 7 C r. 



; set the flag for recieving without error 

; test for the timer time cut 

; if the timer is active then donct reissue 



cp ADDRESS, #23K 

jr z, MatchGood2 



If the code was the rolling touch code, 
then we already know the transmitter type 



Page 55 of 97 



J 

call SetMask ; Set the mask bits properly 

Id ADDRESS, #RTYPEADDR ; Fetch the transmitter config. bits 

call READMEMORY 

tm RFlag, #1 0000000b ; If we are in the upper word, 

jr nz, UpperD ; check the upp r transmitters 

and BitMask, MTEMPL ; Isolate our transmitter 

jr TransType ; Check out transmitter type 

and BitMask, MTEMPH ; Isolate our transmitter 

tm BitMask, #01010i01b ; Test for light transmitter 

jr nz, LightTrans ; Execute light transmitter 

tm BitMask, #10l01010b ; Test for Open/Close/Stop Transmitter 

jr nz, OCSTran.s ; Execute open/close/stop transmitter 

; Otherwise, standard command transmitter 

or RFlag, #000000018 ; set the flag for recieving without error 

cp RTO, #RDROPTIMZ ; test for the timer time out 

jp ult , NOTNEWMATCH ; if the timer is active then donot reissue cmd 

cp VAC FLAG , # 0 0 B ; test for the vacation mode 

jp z , TSTS DISABLE ; if not in vacation mode test the system disable 

tm RadioMode, *RCLL_MASK 

jr z, FixedE 

cp ADDRESS, 4* 2 3H ; If this was a touch code, 

jp nz, NOTNEWMATCH ; then do a command 

jp TSTSDI SAELE 

cp ADDRESS ,¥ I rH ; test for the B code 

jp "n 2 , NCTNEWKAT CK ; if not a B not a match 

cp S DISABLE , £ 32 ; test for 4 second 

jp ult, NOTNEWMATCH ; if 6 s not up not a new code 

clr RT Z ; clear the radio timeout 

cp ONE? 1 , * T I ; test for the 1.2 second time out 

jp nz, NOTNEWMATCH ; if the timer is active then skip the command 

clr RTO ; clear the radio timeout 

tm RFi as, # 0 0 C 0 C 1 0 Z : 'z. ; test for a B code 

jr z , E DON'T SIT ; if not a b code donot set flag 

clr Z2WIN ; flag get matching E code 

Id CodeFiac, *BRECEIVEC ; flag for aobs bypass 

cp L_h_C, #0"?0K / If we were positioning the up limit, 

jr ult, NormalRadio . ; then start the learn cycle 

jr 2, Firs t Lea rr. 

cp L _A_C, *07iH ; If we had an error, 

jp nz, CLEARRADIO ; re-learn, otherwise ignore 

Id L _ A _C, #072H ; Set the re-learn state 

call SET_UP_DI RESTATE 

jp CLEARRADIO 

id L_A_C, #C"3H ; Set- the learn state 

call SET_UF_FOS_STATE ; Start fro- the "up limit" 

jp cii:a??a::; ; 

clr LAST CK1 ; mark the last command as radio 
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-Closelt : 

Id 

call 
jr 

• SetMask: 

and 
tm 
jr 
cr 

InLowerByte : 

tm 
jr 

EightOrTwel ve : 
Id 
jr 

ZeroOrFour : 

Id 

LSNybble: 

tm 
jr 

FcurOrTweive : 

and 
ret 

ZeroOrEight : 

and 
ret 

7ES7CODES: 

Id 

call 

Id 

Id 

tm 

jr 

clr 

clr 

RollCheck: 

clr 

NEXT-CODE : 

C6-- 

and 

HAVEMASK: 

call 

cp 

jr 

cp 

jr 

inc 

call 

tm 

jr 

cp 

jr 

cp 

jr 

cp 

ret 

CheckOCSl : 

sue 
sbc 



REASON , #010H ; Set the reason as radio 

SET_DN_DIR_ STATE 

OCSExit 



RFlag, #01111111b ; Reset the page 1 bit 

ADDRESS , #iiilO0C0b ; If our address is on page 1, 
z, InLowerByte ; then set the proper flag 

RFlag, #:C0C-C'C00b ■ 

ADDRESS, #00001000b ; Binary search to set the 

z, ZeroOrFour ; proper bits in the bit mask 

BitMask, flllilODOGb 
LSNybble 

BitMask, #0G001111b ; 

ADDRESS , #D0C0C«100b 
2 , ZeroOrEight 

BitKask, fcllGOIlOGb ; 



BitMask, ^GOllOOllb ; 



ADDRESS, #RTY?EADDR ; Get the radio types 

READMEMORY 

RadicTypes, I ITE!'? 1 

R7ypes2, KTEMFH ; 

RadioMode, #ROLL_MASK 

nz, RollCheck 

RadicTypes 

RTypesz 



start address is 0 



Get the approprite bit mask 
:e the current transmitter types 



READMEMORY 
K7EKFK , radi z lh 
nz, N0MA7 CH 
M7EKF1, radicli 
nz , NOMATCH 
ADDRESS 
READMEMORY 
BitMask, #1010 
nz, CheckOCSl 
CodeFlag, #LF.NOCS 
z, CheckOCSl 
M7EMFK, radic3h 
nz, NOMATCK2 
MTEMPL, radic31 
nz , NOMATCH 2 



; read the word at this address 
/ test for the match 

; if not matching then do next address 
; test for the match 

; if not matching then do next address 
; set the second half of the code 
; read the word at this address 
Ob ; If this is an Open/Close/Stop trans., 
; then do the different check 

; If we are in open/close/stop learn mode, 
; then do the different check 
; test for the match 

; if not matching then do the next address 
; test for the match 

; if not matching then do the next address 



return with the address of the match 



M7EKF1, radical 
MTEMFK, radio3h 
Coder lac, * IRK 2 
nz, Positive 



Subtract the radio from the memory 

If we are trying to learn cpen/clcse/stcc , 
; then we must complement to be positive 
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Positive : 



com MTEMPL 

com MTEMPH 

add MTEMPL, #1 

adc MTEMPH, #0 

cp MTEMPH, #00 

jr nz, NOMATCH2 

cp MTEMPL, #02 

jr ugt, NOMATCH2 

ret 



; Switch from ones complement to 2's 
; complement 

; We must be within 2 to match properly 



; Return with the address of the match 



KOMATCK: 
NOMATCK2 : 



At Next Add : 



inc ADDRESS 

inc ADDRESS 

tir. RadioMode, #RDL: _ 

jr z, AtNextAdd ; 

inc ADDRESS 

inc ADDRESS 

cp ADDRESS, #1 OH 

jr nz, AtNextAdd 

la RadicTypes, R7ypes2 ; 

cp ADDRESS, #22H 

jr ult,NEXTCODE 



; set the address to the next code 

; set the address to the next code 
MASK ; If we are in fixed mode, 

; then we are at the next address 

; Roll mode — advance past the counter 

; If we are on the second page 
; then get the other tx. types 



test for the last address 

if not the last address then try again 



G07N0MATCH : 



Id ADDRESS, #0FFH 

ret 



set the no match flag 
; and return 



NOTNEWMATCH : 



clr RTO 

and RFiac, #00 00000 IE 

clr radioc 

Id LEARNT , # 0 FFH 

jp RADIC_EXI7 



; reset the radio time out 

; clear radio flags leaving recieving w/c errc: 
clear the radio bit counter 
set the learn timer "turn off" and backup 

; return 



Checkrast : 



Proprietary aigcrithn. for ir.ai 
rolling cede counter 



■jumps 
Update Fa st : 



either KatchGood, Up 



CLEARPADI02 



CLEARRAD] 



CL.EAF.RAD I OA : 



SKIPRTC: 



Id LastKatch, ADDRESS 

Id PGcunterA, MirrcrA 

Id PCounterB, MirrcrB 

Id PCounterC, MirrorC 

Id PCounterD, MirrorD 

id LEARNT, # 0FFH 

clr CodeFlag 



. IF 
and 

. ENDIF 



TwcThirtyThree 
IRQ, #00111111B 



trr. 
clr 

clr 



RINFI LTE?; f * 
RFiac, #C 00000013 
R7C 

radicc 



ntainir.g 

date Fa st or CLEARRADIO 



Store the last fixed code received 
Store the last counter received 



Turn off the learn mode timer 



; clear the bit setting direction to neg edge 

; set flag to active 

; test for receiving without errcr 

; if flag not set tr 

; clear radio timer 



clear the. radio counter 

; clear the radio flag 
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TCReceived: 



clr ID_B 

jp RADIO_EXIT 



Cp L_A_C, #07 OH 

jr uge, TestTruncate 

cp FAULT FLAG, # 0 FFH 

jr z, TestTruncate 

and ledport, #ledi 

jr TestTruncate 



; Clear the ID bits 
; return 



Test for in learn limits mode 

If so, don't blink the LED 
If no fault 
turn on the led 

Truncate off most significant digit 



TruncTC : 



sub RadiolL, #0E3h 
sbc RadiciK, #04Ch 



; Subtract out 3^9 to truncate 



TestTruncate : 



GotTC: 



cp RadiolK, #04Ch 

jr ugt , TruncTC 

jr uU, GotTC 

cp Racicll, *0E3h 



; If we are greater than 3*9, 
truncate down 



CheckID: 



Id ADDRESS, #TOUCKID 

call READMEMORY 

cp #07 OK 

jr uge, CheckID 

cp FAULT-FLAG, # OFFH 

jr z, CheckID 

or ledpzrt, #ledh 

cp MTEMPH, Radic3K 

jr nz, CLEAR RADIO 

cp MTEMrL, Radic3L 

j r nz, C LEAF, RAD I C 



; Check to make sure the ID code is good 

Test for in learn limits mode 
If so, don't blink the LED 
If no fault, 
turn off the LED 



CP- 
S' p 



Id 
Id 



7 e s z C c u r. - 6r 
CMr, #EQ"- : AL 



nz, clear?a:ic 

.:er gczd — update 

COUNT! K, RadiclH 
COUNT IL, RadicIL 



Test the rolling code counter 
If the counter is equal, 
then call it the same code 



Back up radio code 



Id " RadiolK, KirrcrA 

id RadiolL, KirrcrS 

Id Radio3H, MirrorC 

Id Radio 21, Kirrorr 

dec ADDRESS 

call WRITE CODE 



Write the counter 



Id RadiolH, COUNTiH 

Id RadiolL, C0UN71L 



; Restore the radio code 



CP 

jp 

j c 



Code Fl a z , *N 0RMA1 
z, Kcrc.T: 

CodeFlag, * Lr.NTEX? 

Coder: a z , * "_?,:; 7] 

z, LearnDur 



; Fine and iumc- tc current mode 
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J 

NormTC: 



Id ADDRESS , 3TOUCHPERM 

call READMEMORY 

cp RadiolK, MTEMPH 

jr nz, CheckTCTemp 

cp RadiolL, MTEMPL 

jr nz, CheckTCTemp 



Compare the four-digit touch 

code to our permanent password 



cp SW_B, # ENTER ; 

jp z, RAD I OCOMMAN D 

cp SK_E, # POUND ; 

jr z, TCLearn 

; Star key pressed -- start 



If the ENTER key was pressed, 

; issue a B code radio command 

If the user pressed the pound key, 

; enter the learn mode 
30 s timer 



TCLearn : 



CheckTCTemp: 



clr LEARNT ; 

Id FLASK_COUNTER, #06h ; Blink the worklight three 

Id FLASH DELAY, #FLASKJTIME ; times quickly 

Id FLASH_FLAG, # OFFK 

Id CodeFlag, #LRNTEMP ; Enter learn temporary mode 

ip CLEARRADIC 



la FLASH_C0 T JK7ER, #G4h ; Elink the worklight twc 

Id FLASK_ DELAY, #FLASH_TIME ; times quickly 

Id FLASH_FLAG, # CFFH 

push RP ; Enter learn mode 

srp #L£ARNEE_GRF 

call SETLEARN 

pop RP 



jp CLEARRADIC 



Id ADDRESS, ttTOUCHTEMP ; Compare the four-digit touch 



call READMEMORY 

cp RadiclH, MTEM?;-: 

j p n z , C LEAR RAD I O 

cp RadiolL, MTEMPL 

jp nz, CLEARRADIO 



code to our temporary password 





STATE, #D>v_POSITIOi; ; 


If 


we 


are not at the down limit, 


jp 


nz, RADIO-COMMAND 






issue a command regardless 


Id 


ADDRESS, #DUrA7 






If the duration is at zero, 


call 


READMEMORY 




r 


then don't issue a command 


cp 


MTEMFL, #00 




* 




jp 


z, CLEARRADIC ; 








cp 


MTEMPH , * ACT I VAT I OK S 




f 


If we are in number of activations 


jp 


nz, RADIOCOMMAND 




i 


mode, then decrement the 


dec 


MTEMFL 


number 


of activations left 


call 


WRITEMEMCRY 




t 




jP 


RADIOCOMMAND 








cp 


SW B, # ENTER 


If 


the 


user pressed a key other 


jp 


nz, CLEARRADIO 




* 


then enter, reject the code 




ADDRESS, *TOUCK?ERM ; 


If 


the 


code entered matches the 


call 


READMEMORY 






permanent touch code, 


-F 


RscirlH, M7E!-:?H 






then re: ecc the code as a 


jp 


nz, Temp.jOCc ; 


temporary code 


cp 


RadiolL, MTEMPL 










z, CLEARRADIO 
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TempGood : 



Id ADDRESS, flTOUCHTEMF ; Write the code into temp. 



Id MTEMPH, RadiolH 

Id MTE.MPL, RadiclL 

call WRITEMEMORY 



code memory 



Id FLASH_COUN7ER, #G8h ; Blink the worklight four 

Id F LAS H_ DELAY, #FLASH_TIME ; times quickly 

Id FLASK_FLAG, $ OFFH 

; Start 30 s timer 

clr LEARNT 

Id CodeFiag, JiLR^OuRTN ; Enter learn duration mode 

jp CLEAR RAD 10 



LearnDur : 



cp RadiolH, #00 

jp nz, CLEARRADIC 



cp 
cp 

jr 
jp 



Sa_E, * POUND 

SK_E, # STAR ' 
z, HoursDur 
CLEARRADIC 



If the duration was > 255, 

; reject the duration entered 

If the user pressed the pound 

; key, number of activations mode 
; If the star key was pressed, 
; enter the timer mode 
; Enter pressed -- reject code 



Nuir.Duration : 



Id 



MTEM ?H , # ACT I VAT I OK 5 
Dure t ion In 



Flag number of activations mode 



HoursDu: 



Id 



MTEMPH, #HOURS 



Flag number of hours mode 



Duration In : 



Id KTEKPL, RadiclL 

i d ACORZ 55, ? 5 VRAT 

call W?.ITZKI!w?.Y 



Load m auraticn 

Write duration and mode 

intc nonvolatile memory 



/ Give vscr.^ia:.: rr.e _ ; r. ; c_ 
xor PC, #WCRKLIGHT 
Id LIGHT I £ , #244 ; 

clr CcdrFls- 



; Give the light one blink 
Lasting one second 

; Clear the learn fiac 



CLE- 



.-..-Nrv.-. ^ 



Test Rolling Code Counter Subroutine 

Note; CounterA-D will be used as temp registers 



Tes t Counter : 



pusn 

srp 

inc 

call 

Id 

Id 



R? 

# Counter Group 
ADDRESS 
READMEMCRY 
counter a, KTEHPK 
count err, KZZK?L 



reac:-:emc?y 

ccun-ert, :: 
ccunterd, X 



; Point to the rolling code counter 
; Fetch lower word of counter 



Point tc rest of the counter 
Fetch upper word of counter 



Subtract eld counter ( count era- d: from current 
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counter (mirrora-d) and store in countera-d 



com 


countera 




coin 


counterb 




com 


counterc 




com 


counterd 




add 


counterd, 


#01H 


adc 


counterc, 


#00K 


adc 


counterb, 


#00K 


adc 


count ere , 


#00K 


add 


counterd, 


mi r r or a 


adc 


counterc, 


mirrorc 


adc 


counterb, 


mirrcrb 


adc 


countera, 


mirrors 



; Obtain twos complement of counter 



; Subtract 



If the msb of counterd is negative, check to see 
if we are inside the negative window 



tm counters, #100 jC'OOOE 

j r z, Chez Fw dW i r. 



CheckBackWin : 



cp countera, #0FFK 

jr nz, OutOf Window 

cp counterb, OFFH 

jr nz, OutOf Window 

cp counterc, # OFCH 

jr ult, OutOf Window- 



Check to see if we are 

less than -0400H 

{i.e. are we greater than 

OxFFFFFCOOK) 



InEackWin : 



Id CMP, #BACKKIK 

j r CompDone 



; Return in back window 



rheckFwdWi: 



cp countera, #0CH 

j r n z , Ou t O f W i n d o w 

cp counterb, ?:CH 

jr nz, OutCf Window 

cp counterc, #0CH 

jr ua~ . .:t C fWindc 



Check to see if we are ies 
than 0C00 -3C72 = 102 4 
activations : 



j * 
cp 
i r 



counterc, # COH 
nz, InFwdWin 
counterc, #0GH 
nz, InFwdWin 



Count ersEaual : 



id 



CMP, I? EQUAL 
CompDone 



; Return equal counters 



InFwdWin: 



Id 
■> r 



CMF, #FWDWIN 
ComoDcr.e 



; Return in forward window 



OutCfWindow 



a-:?, ov: 



; Return cut cf any window- 
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pop RP 
ret 



Clear interrupt 



-ClearRadio: 



cp RadioMode, #ROLL_TEST 

jr ugt, MODE DONE 



;If in fixed or rolling mode, 
then we cannot switch 



tm T125MS, #00000001b 
j r z, S z. T r v 3 L — 



;Zf our 'coin toss 1 was a zero, 

set as the rolling mode 



SETFIXED: 



Id RadioMode, #FIXED_TES7 

call FixedNums 
jp MODE DONE 



SETROLL: 



Id 

call 



RadioMode, #R3LLJTES: 
RcllNums 



MODE DONE: 



clr 
clr 
clr 



RadicTimeOut 

Radic-C 

RFiag 



clear radio timer 
clear the radio counter 

; clear the radio flags 



RRETURN : 

pop 
ire* 



RF 



reset the RP 
return 



FixedNums : 



Id 
Id 
Id 
ret 



EitThresh, #FIXTKF. 
SyncThresh, #F IXSYN 
MaxEits, *F IXBITS 



RollNu^s : 



10 
Id 
Id 
ret 



Bit Thresh, P D7HF. 
SyncThresh, ¥. ZS'i'1 
MaxEits, #DEITS 



rotate mirror LoopCour.t ' 2 then add 



RotateMirrorAdd: 



rcf 
ric 
rlc 
rlc 
rlc 
djr.z 



mirrorc 
mirrorc 
mirrorb 
mirrora 
loopcour.t , P. 



ctateMirrcrAdc 



clear the carry 



loop till done 



Add rr.i r r c r :c ccur.ter 



AddMi rrc r 7c Ccur.ter : 
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clr CodeFlag 
ret 



; return 



i 

4- 



STmartSet : 






cp 


L_A_C, #07 OH 




jr 


nz t NormLearnMakel 




Id 


REASON, #00H 




call 


SET_DN_NOBLINK 




jr 


LearnMakeDone 




NormLearnMakel : 




cp 


L_A_C, #074K 




jr 


112, N c r m L e a r n M a k e 2 




Id 


L_A C f #075H 




Id 


REASON , #00H 




call 


SET_AREV__ STATE 




jr 


LearnKakeDone 


r 


NormLearnMake2 : 




clr 


LEARNT 


i 


Id 


CodeFlag, #REGLEARN 




and 


ledport, *ledl 




clr 


VACFLAG 


t 


Id 


AD ORE S S , if VAC AT I ON AD DR 




clr 


MTEMPK 


i 


cl r 


MTEMrl 


* 


la 


SKIPRADIG, SN3EECDMM 




ca 1 1 


WRITEMEMORY 


; write 


clr 


SKIPRADIC 




LearnMakeDcne 






Id 


LEARN DB, # 0 FFK 




ret 






ERASERELEASE : 






Id 


eraset , #CFFH 


; 


CP 


iearr.db, P 2 2 £ 


- L 


jr 


z,learnrelease: 


; i x osb 


ret 




* 


IN LEARN : 






cp 


learndb, #2C 




jr 


nz , TESTLEARNTIMEr. 




Id 


learndb, * OFF H 




TESTLEARNTIME 


R : 






learnt, #24: 


* 


i r 


r.z,ERASE7i;S7 




learnof f : 






cr 


ledpcrt , #ledr. 




1 d 


learnt, #CFF.-: 


i 


Id 


learndb, * CFFH 




clr 


CodeFlag 


i 


jr 


ERASETEST 


i 



Test for in learn limits mode 
If not, treat normally 
Set the reason as command 



If not, treat normally 
Reverse off false floor 
Set the reason as command 



clear the learn timer 
Set the learn flag 

; turn on the led 
clear vacation mode 

; set the non vol address for vacation 
clear the data for cleared vacation 

; set the flag 
the memory 
clear the flag 

; set the debouncer 



turn off the erase timer 

test for the debounced release 



return 



; set the learn db 

for the learn 30 second timeout 
test erase 

; turn off the led 
the learn timer 
; set the learn debounce 



WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPK AND MTEMFL 
RETURN ADDRESS IS UNCHANGED 



WRITEMEMORY: 

push RP 
s re- 



call 

ca i ~ 
and 
cal; 
Id 



*LEARNEE_GRr 
ST ARTE 

serial, siriiir" r E 
s£?.:aidvt 

csport , *csl 
STAR 7 5 

serial, SCIOOIC jOB 



; SAVE THE RP 
set the register pointer 

; output the start bit 

; set byte to enable write 

; output the byte 
reset the chip select 

; output the start bit 
set the byte for write 
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add counterd,mirrord 

adc counterc, mirrorc 

adc counterb, mirrorb 

adc countera,mirrora 
ret 



LEARN DEBOUNCES THE LEARN SWITCH 80mS 



; TIMES OUT 
; DEBOUNCES 


THE LEARN MODE 30 SECONDS 
THE LEARN SWITCH FOR ERASE 


6 SECONDS 


LEARN: 








srp 


#LEARNEE GRP 


; set the register pointer 


cp 


STATE, #DN_POSITION 


; test 


for motor stoped 


jr 


z , TESTLEARN 






cp 


STATE, #UF POSITION 




• test for motor stoped 


jr 


2, TESTLEARN 






cp 


STATE, #STOP 




• test for motor stoped 


jr 


z, TESTLEARN 






cp 






• Test for traveling 


id 


learnt , * CFFK 




set the learn timer 


cp 


learnt , #24 C 




* test for the learn 30 second timeout 


jr 


nz, ERASETEST 


; if not then test erase 


jr 


learnof f 




; if 30 seconds then turn off the 


TEST LEARN : 








cp 


learndb, #236 




• test for the debounced release 


jr 


nz f LEARNNCTRE LEASED 




• if debouncer not released then jump 


LEARNRELEASED: 






SmartRe lease : 






cp 


L_A_C, #07 OH 


; Test 


for in learn limits mode 


jr 


nz, NormLearnBreak 


; If not, treat the break as normal 


Id 


REASON, #00K 


; Set the reason as command 


call 


SET_STO?_STATE 






NormLearnBreak: 






clr 


LEARNDB 




; clear the debouncer 


ret 






; return 


LEARNN C- 7 RE IE 


ASED: 






cp 


CodeFlaC, #LRNTEMr 




; test for learn mode 


jr 


uge, IN LEARN 




; if in learn jump 


cp 


learndb, #20 




; test for debounce period 


i r 


nz, ERASETEST 


; j_ f J-. O 


t then test the erase period 


SET LEARN- : 








call 


SmartSet 




ERASETEST: 








Cp 


L A C, #0^0H 


; Test 


for in learn limits mode 


jr 


uge, ERASERE LEASE 




,■ If so, DON'T ERASE THE MEMORY • 


cp 


learndb, # OFFH 




; test for learn button active 


3 r 


nz, ERAS ERE LEASE 




; if button released set the erase timer 


cp 


eraset , # OFFH 




; test for timer active 


jr 


nz, ERASETIMING 




; if the timer active jump 


clr 


eraset 




,* clear the erase timer 


ERASETIMING: 








cp 


eraset, #48 




; test for the erase period 


jr 


z , ERASETIME 




; if timed out the erase 


ret 






; else we return 


ERASE? IKE : 








or 


ledpcrt , #iedh 




; turn off the led 




sxipradio, *KCEECDM:-: 




; set the flag tc s*>:it the r = c;; . 


call 


CLEAR COZES 




; clear all codes in memcry 


clr 


skipradio 




; reset the flag to skip radio 


Id 


learnt, £ OFFH 




; set the learn timer 



rea : 
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i 



or 


s rial, address 


; or in the address 


call 


SERIALOUT 


; output the byte 


Id 


serial, mtemph 


; set the first byte to write 


call 


SERIALOUT 


; output the byte 


Id 


serial, mtempl 


; set the second byte to write 


call 


SERIALOUT 


; output th byte 


call 


ENDWRITE 


; wait for the ready status 


call 


STARTE 


; output the start bit 


Id 


serial, #00000000B 


; set byte to disable write 


call 


SERIALOUT 


; output the byte 


and 


csport, #csl 


; reset the chip select 


or 


P2M SHADOW, Uclockh 


; Change program switch back to read 


Id 


P2K,P2M SHADOW 


V 


pop 


RP 


; reset the RP 


ret 







9 

; READ WORD FROM MEMORY 

; ADDRESS IS SET IN REG ADDRESS 

; DATA IS RETURNED IN REG KTEMPH AND MTEMPL 

; ADDRESS IS UNCHANGED 

i 

README* DRY : 



P USh 


RP 




srp 


#LEARNEE_GRr 


; set the register pointer 


call 


STARTB 


; output the start bit 


Id 


serial, #100000005 


; preamble for read 


or 


serial , address 


; or in the address 


call 


SERIALOUT 


; output the byte 


call 


SERIALIN 


; read the first byte 


Id 


mtemph, serial 


; save the value in mtemph 


call 


SERIALIN 


; read teh second byte 


Id 


mtempl , serial 


; save the value in mtempl 


and 


csport Jcsi 


; reset the chip select 


or 


P2M SHADOW, #clockh 


. ; Change program switch back 


Id 


P2M, P2M SHADOW 


i 


pop 


RP 




ret 







WRITE CODE TC 2 MEMO?.:" ADDRESS 



RADIOl 


HI RAD I C 1 L RADIC2 


K RAD I 03 L 


push 


RP 




srp 


#LEARNEE_GRF ; 


set the register pointer 


Id 


mt emph , Ra c i o 1 K 




• transfer the data from 


Id 


mtemp 1 , Radiol L 






call 


WRITEMEMORY 




write the temp bits 


inc 


address 




• next address 


Id 


mtemph, Radio3H 




transfer the data from 


Id 


tt.z empl , Radi c31 






call 


WRITEMEMORY 




write the temps 


pop 


RP 






ret 






return 



WRITECODE: 



CLEAR ALL RADIO CODES IN THE MEMORY 



CLEAR CODES : 

push RP 

srp * LEARN EI_C-R? 

Id* MTEMPH, #GFFK 

Id MTEMPL, *CFFK 

Id address, #00K 



set the register pcir.ter 

set the codes to illegal codes 



clear address 0 



Page 67 of 97 



CLE ARC: 



call 


WR1TEMEM0RY 


; "AO" 






inc 


address 




set the next 


address 


cp 


address, # (AddressCounter 


- 1) ; 


test for the 


last address 


jr 


ult, CLEAR C 








clr 


mtemph 


; clear 


data 




clr 


mtempl 








call 


WRITEMEMORY 




Clear radio types 


Id 


address, #AddressAPointer 


; clear 


address F 




call 


WRITEMEMORY 


i 






lei 


address , # MODE ADD?. 


; Set EE PROM memory as 


fixed test 


call 


WRITEMEMORY 


\ 






Id 


RacioMode , # FIXED_TES7 


; Revert 


to fixed mode 


testing 


Id 


BitThresh, IFIXTKR 








Id 


SyncThresh, # FIX SYNC 








Id 


MaxBits, #FIXBITS 









CodesCleared : 

; return 



START BIT FOR SERIAL NONVOL 



STARTB: 



SETS 


DATA DIRECTION AND AND CS 






and 


P2M SHADOW , #icicck: & dol) 




; Set output mode for clock line 


Id 


P2M, P2K_SHADGW 




; I/O lines 


and 


cspcrt , #csi 






and 


elkport, #clockl 




; start by clearing the bits 


and 


dioport , #dol 






or 


cspcrt, #csh 


; set 


the chip select 


or 


dioport , #doh 


; set 


the data out high 


cr 


elkport, #clockh 




; set the clock 


and 


elkport, ticiocki 




; reset the clock low 


and 


dioport , #doI 


; set 


the data low 


ret 






; return 



end of ccri write 



ENDWRITE: 
ar.c 
nep- 
er 
or 
Id 

ENDWRITE LOOP : 
Id 
and 
jr 
and 
cr 
and 
Id 
ret 



csport , frcsl 

csport , ¥ csh 
F2K_SHAD0W, #dch 
P2M, F2M_SHADOW 

temph, dioport 

temph, teach 

z, ENDWRITELOOP 

csport, #csl 

F 2 K_ S HA DOW , fctiockh 

P2M_SHAD0W, #dol 

P2M, P2M SHADOW 



reset the chip select 

; delay 
set the chip select 

; Set the data line to input 

; set port 2 mode forcing input mode dat 

; read the port 
; mask 

; if the bit is low then loop until done 
reset the chip select 

Reset the clock line to read smart button 
; Set the data line back to output 
; set port 2 mode forcing output mode 



; OUTr'J 7 THE BYTE IK SERIAL 
SERIALCVT: 

and F 2 K_ SHADOW, # {del & ciockl) ; Set the clock and data lines to outputs 

Id P2:C?2M_SHAD0V: ; set pert 2 mode forcing output rr.cde da 

lc tempi , #5H ; set the count for eight bits 
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SERIALOUTLOOP: 



•QNEOUT 



rlc 


serial 


ir 


nc, ZEROOUT 


O 3T 


dioport , #doh 


or 


clkriort . # clockh 


and 


rlknort ftclockl 


and 


diooort . #dol 


djnz 


tempi , SERIALOUTLOOP 


ret 




T: 
and 


dioport, #dol 


or 


clkport, #clockh 


and 


clkport, flclocki 


and 


dioport , #dol 


djnz 


tempi , SERIALOUTLOOP 


ret 





J 

; get the bit to output into the carry 
; output a zero if no carry 

; set the data out high 

; set the clock. high 

; reset the clock low 
; reset the data out low 

; loop till done 
; return 

; reset the data out low 

; set the clock high 

; reset the clock low 
; reset the data out low 

/ loop till done 
; return 



SERIAL IN 

INPUTS A EYTE TO SERIAL 



SERIALIN: 
or 
Id 
Id 

SERIALINLOOP: 
or 
rcf 
Id 

and 

jr 
scf 
DONTSET : 

rlc 
and 
djnz 

ret 



P2M_SHAD0W, #doh 
P2M, P 2 M_ SHADOW 
tempi, #8H 

clkport, #clockh 

temph, dioport 
temph, #doh 
z , DONTSET 



serial 

clkport , #c!ockl 
tempi, SERIALINLOOP 



; Force the data line to input 

; set port 2 mode forcing input mode data 

; set the count for eight bits 

; set the clock high 

; reset the carry flag 

; read the port 

; mask out the bits 

; set the carry flag 

; get the bit into the byte 

; reset the clock low 

; loop till done 

; return 



TIMER UPDATE FROK I NT ERUPT EVERY C.25€mS 



SkipFulse: 

tm SKIPRADIO, #NCINT ; If the 'no radic interrupt 1 

; jr nz, NcPuise ;fiac is set, just leave 

; or IMR, #RadioImr ; turn on the radio 

;NoPulse : 

iret 



TIMERUD: 



tm 
jr 
or 

NoEnable: 

decw 



SKIPRADIO, # NO I NT 
nz, NoEnable 
IMR, #RadioImr 

toextwor: 



;If the 'no radio interrupt' 
;flag is set, just leave 
; turn on the radio 

; decrement the TO extension 



TCExtOor-e: 



tm 
jr 



HighAC: 



P2, #LINEINFIN 
2, LowAC 



; Test the AC line in 

; If it's low, mark zerc crossin: 
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LowAC : 



inc LineCtr 

jr LineDone 

cp LineCtr, #08 

jr ult, HighAC 

Id LinePer, LineCtr 

clr LineCtr 

Id PhaseTMR, PhaseTime 



• i 



; Count the high time 



; If the line was low before 

; then one-shot the edge of the line 

; Store the high time 

; Reset the counter 
; Reset the timer for the phase control 



LineDone : 



cp 

jr 

cp 

jr 

dec 

jr 

PhaseOf f : 
and 
jr 

PhaseOn : 



Power Level, #20 
uge, PhaseOn 
PowerLevel, #00 
z, PhaseOff 
PhaseTMR 
mi, PhaseOn 



PhasePrt, #~PhaseKigh 
PhaseDone 



PhaseFrt, # PhaseHi z': 



; Test for at full wave of phase 
; If net, turn off at the start of the phase 
; If we're at the minimum, 
; then never turn the phase control on 
; Update the timer for phase control 
; If we are past the zero point, turn on the line 



; Turn off the phase control 



; Turn on the phase control 



PhaseDone ; 

trr. 
jr 

DecRPMDB: 
cp 
jr 
dec 

i r 

IncRPKDB: 
inc 
jr 
dec 



P2, #0000001 Ob 
nz, IncRPMDE 

RPK_FILTER, #0C 
z, RPKFiltered 
RPM_ FILTER 

RFMFiitered 

RPM_FILTER 

nz, RFKFilterec 

RPM FILTER 



; Test the RPK in pin 
; If we're high, increment the filter 

; Decrement the value of the filter if 
; we're not already at zerc 



; Increment the value of the filter 
; and back turn if necessary 



RFMFiitered: 
cp 
j r 
cp 

VectcrRPKIow : 
i r 



rpk_f:ltef, 

z , VecocrRFKHicr. 

rfi-:_f:lter, # ~2z\ 
nz, Tas /.Switcher 

R?!*'_ FILTER 
Task Switcher 



Vector? 



; If we've seen 2.5 ms of high time 

; then vector high 

; If we've seen 2.5 it.s cf lew time 

; then vector low 



RPK FIL7r.n, Kr tn 



TaskSwitche: 

trr, 
jr 
trr. 
jr 
tm 
jr 
tm 
jr 



T 0EX i f f* v C v v* v - c 
nz, SkipPulse 
T0EXT, #0000002 Or 
nz,TASK!357 
T0EXT, #00C00100o 
z, TASK04 
T0EXT, #00001000b 
nz, TASK 6 



; skip everyother pulse 

; Test for odd numbered task 

; If sc do the 1ms timer update 

; Test for task 2 or 6 

; If not, then go to Tasks 0 and 4 

; Test for task 6 

; If so, jump 

; Otherwise, we must be in task 2 



cr 

e i 

call 
iret 



; turn on the interrupt 
dc the motor function 



TASK: 4 : 
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f 



or 
ei 

fcush 

srp 

call 

pop 

iret 



I MR, #RETURN_IMR- 
rp 

#TIMER_GROUP 

switches 

rp 



; turn on the interrupt 

; save the rp 
; set the rp for the switches 
; test the switches 



TASK6: 



or 
ei 

call 
iret 



I MR, #RETURK_IMR 
TIMER4KS 



; turn on the interrupt 
; do the four ms timer 



TASK1357: 

ONEMS : 

LowerDn : 
HigherDn: 
DnPotDone : 
LowerUp : 
HigherUp: 
UpPotDone : 



GoTimer : 



BiockedBec 
NOFAIL: 



push 

or 

ei 



tm 
jr 

and 

jr 

or 
inc 

tin 

and 

or 
inc 



rrc 

rcf 

rrc 

ci 

Id 

sub 

Id 

sub 

ei 

clr 

clr 

srp 
dec 

jr 
Id 
tm 

or 



cp 



RP 

IMR, # RETURN IK?. 



po, #dow?;_cok? 

nz, HigherDn 

p3, # (~DOWK_OUT) 
DnPotDone 

p3, #DOWK_OUT 
DNJTEMF 

pO, #UP_COMr 
nz, Kigher'Jp 

F3, # (-UPJDUT) 
UpPotDone 

P3, #U?_CUT 
UF_TEKF 

POT_COUK7 
nz, Gc Timer 

UF_TEK? 

DN_TEK? 

UPFORCE, *ci 

UPFORCE, UF_TEK? 

DN FORCE, #65 

DN FORCE, DN_TEM? 

UPJTEMP 
DK_TEM? 

#LEARKEE_GRF 
AOBSTEST 
nz, NOFAIL 
AOBSTEST, #11 
AOBSF, #00100000b 
nz, ElcckedEear. 



AOBSF, f : 



; w c J 'J ~ . i 



ACESF, * : 



; turn on the interrupt 



Test down force pot. 

Average too low — output pulse 

take pulse output low 



Output a high pulse 

; Increase measured duty cycle 

; Test the up force pot. 

; Average too low -- output pulse 

Take pulse output low 



Output a high pulse 
Increase measured duty cycle 

Increment the total period for 
duty cycle measurement 

Divide the pot values by twc to obtain 
a 64-level force ranae 



Subtract from €3 to reverse the direct 
Calculate pot. values every 255 
counts 



counts 



; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then it didnot fa 

; if it failed reset the timer 

; If the aobs was blocked before, 

don't turn on the light 
; Set the break edge flag 



Sez 



single break flag 



RadicTimeCut 
OES^COUKT, #0C 
z, TEST125 



; Test fcr prcrectcr timed out 

; If it has failed, then don't decrement 
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) 



PPointDeb: 
DecPPDeb: 

IncPFDefc : 

PPDebDone : 
TEST125: 



N125: 



ONE25MS: 



CheckSpeed : 



Norma IRemtric 



Speedup 



RampSpeedUp : 



SiowDcwr. : 



RunReduced : 



Fewer.-/ 



StopKctoi 



iec 


OBS_COUNT 






Decrement the timer 


di 








Disable ints while debouncer being modified 


tm 


PPointPort, #PassPoint 




i 


Test for pass point being seen 


jr 


nz, IncPPDeb ; 


If 


high, increment the debouncer 


and 


PPOINT DEB, #00000011b 


r 


Debounce 3-0 


jr 


z, PPDebDone 


If 


already zero, don't decrement 


dec 


PPOINT_DEB 




i 


Decrement the debouncer 


jr 


PPDebDone 








inc 


PPOINT DEB 






Increment 0-3 debouncer 


and 


PPOINT DEB, #00000011B 


i 




jr 


nz, PPDebDone ; 


If 


rolled over, 


Id 


PPOINT_DEB, #0000001 IB 




keep it at the max. 


ei 








Re-enable interrupts 


inc 


1 1 2 5ms 




r 


increment the 125 mS timer 


cp 


tl25ms, #125 






test for the time out 


jr 


2,ONE25MS 




i 


if true the jump 


cp 


1 1 2 Sm «= . ft 1 3 




i 


test for the other timeout 


jr 










call 


FAULT 5 








pop 


RF 








i re t 










cp 


RsMode, #00 




t 


Test for not in RS232 mode 


jr 


z, CheckSpeed 


If 


not 


, don't update RS timer 


dec 


RsMode 


Count 


down RS232 time 


jr 


nz, CheckSpeed 






If not done yet, don't clear wall 


Id 


STATUS , # CHARGE 




* 


Revert to charging wall control 


CP 


RampFlag, # STILL 






Test for still motor 


j * 


z, StopMctor 


If 


so, 


turn off the FET's 


tm 


BLINK_HI, #10000000b 






If we are flashing the warning light, 


jr 


2, StopMctcr 


then don't ramp up the motor 


cp 


L_A_C , #C7 6H ; 


Special case — use the ramp-down 


jr 


z, NcrmalRampFIac 






when we're going to the learned up limit 


cp 


L_A_C, #07 OH 


If 


we' 


re learning limits, 


~ r 


uge, RunF.educed 






then run at a slow speed 


cp 


RampFlag, #RAM?DOWK ; 


Test for slowing down 




z, Slow Down 




* 


If so, slow to minimum speed 


cp 


Power Level , MaxSpeed 






Test for at max. speed 


jr 


uge, SetAtFuil 




* 


If so, leave the duty cycie alone 


inc 


Power Level 




* 


Increase the duty cycle of the phase 


"i r 


SpeedDone 








cp 


PowerLevel, MinSpeed 




* 


Test for at min. speed 


jr 


ult, RampSpeedUp 




i 


If we're below the minimum, ramp up to it 


jr 


z, SpeedDone ; 


If 


we ' 


re at the minimum, stay there 


dec 


PowerLevel 




! 


Increase the duty cycle of the phase 




SpeedDone 




r 




Id 


RampFlag, # FULLSPEED 




f 


Flag that we're not ramping up 


cp 


MinSpeed, #8 


Test for high minimum speed 


j r 


ugt, PowerAtMin 










PowerLevel, #6 






Set the speed at 40* 


j r 


Speed" 1 ens 








j. C 


Fewer Level, MinSpeed 






Set power at higher minimum 


jr 


SpeedDone 




* 
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ERASETOK : 



dec 

pop 
iret 



eraset 
RP 



fault blinker 



FAULT B : 



RegFlash: 
FlashOff : 
FlashOn : 

Fa st Flash : 

DoFaults : 



TESTAOBSK : 



NOPULSE : 



AOBSSK: 

gotfaul: 

NOA0E5FP 
FIRSTFC: 



inc 


FAULTTIME 




# 


increase the fault timer 


cp 


L_A_C, #0*7 OK 


Test 


for in learn limits mode 


jr 


ult, DoFaults 


If 


not, handle faults normally 


cp 


L_A_C, #07 IK 


Test 


for failed learn 


jr 


z, FastFlash 


If 


so 


, blink the LED fast 


tm 


FAULTTIME, #000001 00b 




* 


Toggle the LED every 250ms 


j r 


z, FlashOn 








or 


ledport, #ledh 




* 


Turn off the LED for blink 


i r 


NO FAULT 






Don't test for faults 


and 


ledport, #ledl 




* 


Turn on the LED for blink 


i r 


NOFAULT 




> 




tm 


FAULTTIME , #0000 0 0 - 0c 






Toggle the LED every 125ms 


jr 


z, FlashOn 








i r 


FlashOff 








CD 


FAULTTIME, #8 Oh 




* 


test for the end 


i r 


nz, FIRSTFAULT 




; if not timed out 


clr 


FAULTTIME 




* 


reset the clock 


clr 


FAU LT 




; clear the last 


rr. 


FAULT CODE, #05h 




; test for call dealer code 


i r 


UGE , GOT FAU LT 


set the fault 


rr 


CM IT' DEE, # 0FFH 






test the debouncer 


j * 


nz , TESTAOBSK 


if. 


no 


t set test aobs 


CD 


FAULTCODE, #0 3h 






test for command shorted 


i r 
j 


Z , GOT FAULT 






set the error 


Id 


FAULTCODE, #03h 






set the code 


jr 


FIRSTFAULT 








tir. 


AOBSF, #0000G0C It 






• test for the skiped aobs pulse 




z, NOAOES FAULT 






if nc skips then nc faults 


tir. 








• test for any pulses 


j i" 


z , !<0?ULSE 






if no pulses find if hi cr lew 










• else we are intermittent 


Id 


FAULTCODE, #04h 






■ set the fault 


j r 


GOT FAULT 






• if same got fault 


cp 


FAULTCODE, #G4h 






• test the last fault 


j r 


Z, GOT FAULT 






? if same got fault 


Id 


FAULTCODE, #0 4h 






• set the fault 


jr 


FIRSTFC 








tm 


P3, #OOCO0OOIfc 






• test the ■ input pin 


jr 


Z, AOSSSH 






• jump if aobs is stuck hi 


cp 


FAULTCODE, #0ih 






• test for stuck low in the past 


jr 


z, GOT FAULT 






• set the fault 


lc 


FAULTCODE , # Olh 






• set the fault code 


jr 


FIRSTFC 








cp 


FAULTCODE, #02h 






; test for stuck high in past 


jr 


Z , GOT FAULT 






; set the fault 


Id 


FAULTCODE, #C2h 






; set the code 


jr 


FIRSTFC 








-3 


F>v_ :->T , iA : . — "ZZOZi. 






• set the code 


swap 


FAULT 










FIP.STFC 








clr 


FAULTCODE 




; clear the fault code 


and 


AOESF, #li:ill00b 




; clear flags 
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protection) 
SetAtFull: 
SpeedDone : 

SixtySpeed: 



FiftySpeed: 



WorkCheck : 
;4-22-97 



clr 

jr 

Id 

cp 
jr 

di 

srp 

id 

Id 

add 

adc 

ldc 

Id 

ei 



o: 

srp 

Id 

id 

add 

adc 

ldc 

id 

ei 

srp 

CF 
JF. 
INC 



Dontlr.c : 



SKIrA'JXLEARKSW: 
cp 



TEST FA 



DC12: 



INCLEARN: 



LEAF.! 



Cai j 

clr 

inc 
di 

jr 
dec 

cp 
jr 
dec 

inc 
cp 
3 r 
dec 

ei 

inc 

cp 



Power Level 
SpeedDone 

RampFlag, #FULLSPEED 

LinePer, #36 
uge, FiftySpeed 



; Make sure that the motor is stopped (FMEA 



; Set flag for done with ramp-up 

; Test for 50Hz or 6OH2 

; Load the proper table 



; Disable interrupts to avoid pointer collizion 
#RadioGroup ; Use the radio pointers to do a ROM fetch 

pcinterh, # K I GK ' S FEE D_T AB LE_ 6 0 ) ; Point to the force look-up table 
pointer!, #10W { S?EEDJTABLE_60) 

pointerl, FowerLevel ; Offset for current phase step 

pointerh, #00H 

addvalueh, ^pointer ; Fetch the ROM data for phase control 

PhaseTime, addvalueh ; Transfer to the proper register 

; Re-enable interrupts 
WorkCheck ; Check the worklight toggle 

; Disable interrupts to avoid pointer collision 
#RadicGroup ; Use the radio pointers to do a ROM fetch 

pcinterh, #H I GK ( SFEED_TABLE_50) ; Point to the force look-up table 
pointerl, LOW { S PEE D_T AELE_5 0 ) ; 

pointerl, PowerLevel ; Offset for current phase step 

pointerh, #G0K ; 

addvalueh, Gpcinter ; Fetch the ROM data for phase control 

PhaseTime, addvalueh ; Transfer to the proper register 

; Re-enable interrupts 



# LEARNEE GR? 



; Re-set the RP 



EnabieWcrkLich: , #0110; 
EQ, Dor.- Inc 
Enabl eWo r kL i a h t 



auxlearksk, #orrr. 
2, sk;?a'j>:lea?.:;sw 
a t jmleaf.::sk 

ZZWIN, K FFH 
z, TEST FA 

zzwii: 

FAVL7E 
T125MS 
DOG 2 

SZ Z SAB IE 
nz, DC12 
SDISAELE 

ONEP2, #00 
z, INCLEARN 
ONEF2 

learnt 
learnt, # 0 H 



; Has the button already been held for 10s 
;Work light function is added to every 
; 125ms if button is light button is held* 
; f or 10s will iniate change, if not held 
; down will be cleared in switch routine 

; test for the rollover position 
; if so then skip 
increase 

; test for the roil position 
; if so skip 

; if not increase the counter 

; call the fault blinker 
; reset the timer 

; incrwease the second watch dog 

; count off the system disable timer 

; if not rolled over then do the 1.2 sec 

; else reset to FF 

; test for 0 

; if counted down then increment learn 
; else down count 



increase the learn timer 

test for overflow 

if not 0 skio back turnino 



erase: 
erase:, * 0 K 
nz , ERASE! OK 



increase the erase timer 

test for overflow 

if not 0 skip back turning 
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-FIRST FAULT: 



tm FAULTTIME, #00000111b 

jr nz, RegularFault 

incw HOUR_ TIMER 

tern HOUR_TIMER_LO, #00011111b 

jr nz, RegularFault 

or AOBSF, #01000000b 



RegularFault : 



cp FAULT, #00 

j r z , NOFAULT 

Id FAULT FLAG , # 0 FFK 

cp CodeFlag , #REGLEARN 

jr z,TESTSDI 

cp- FAULT, FAULTTIME 

jr ULE, TESTSDI 

tm FAULTTIME, #00001 000b 

jr nz , EI TONE 

and ledpert , #leci 
ret 



If one second has passed, 
increment the 60min 

Increment the 1 hour timer 
If 32 seconds have passed 
; poll the radio mode 

Set the 'poll radio' flag 



; test for no fault 

; set the fault flag 

; test for not in learn mode 

; if in learn then skip setting 



; test the 1 sec bit 

; turn on the led 



BITONE: 
TESTSDI: 

NOFAULT : 



or 

ret 

clr 
ret 



ledport , * ledh 



FAULT FLAG 



; turn off the led 



; clear the fiag 



Four ms timer tick routines and aux light function 



TIMER4MS: 



TESTPERIOD: 



RPM7D0NE : 





RPKON'ES, #00H 


jr 


z , TESTrERICL 


dec 


RPMONES 


di 




clr 


RFK_COUNT 


cir 


BR?K_COUN7 


ei 






RPMTDONE 


cp 


R PMC LEAP., frOOK 


jr 


nz, RPMTDOKE 


Id 


R PMC LEAR, #122 


cp 


RPM COUNT, #50 


jr 


ugt, FAREV 


di 




clr 


RPM_COUN7 


clr 


BRPM_COUNT 


ei 




clr 


FAREVFLAG 


jr 


RPMTDONE 


id 


FA'JLTCODE, #0€h 


Id 


FAREVFLAG, PQSSH 


ar.c 


p: ( #lsw -v;:?.?;l:3H7 


id 


REASON, # ? OH 


call 


SET_AREV_ STATE 


dec 


RPM CLEAR 



test for the end of the one sec timei 
if one sec over then test the pulses 
; over the period 
; else decrease the timer 

; start with a count of 0 
; start with a count of 0 



; test the clear test timer for 0 

if not timed out then skip 

; set the clear test time for next cycle 

; .test the count for too many pulses 

; if too man pulses then reverse 

; clear the counter 

; clear the counter 

; clear the flag temp test 

; continue 

; set the fault flag 

; set the forced up flag 

; turn off light 
rprr. forcing up motion 

; set the autorev state 

; decrement the timer 
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SKIPLIGHTE: 



DONOTCE : 



RTOOK : 



SKIPRRTO: 



PRSWCLCSED: 





LIGHT1S , #00 


i r 


Z, SKIPLIGHTE 


dec 


LIGHT1S 


inc 


R DEAD TIME 


CD 


RTO, #RDROPTIME 


i r 


ult, DONOTCB 


cp 


CodeFiag, #LRNOCS 


jr 


uge, DONOTCB 


clr 


CodeFiag 


inc 


RTC 


jr 


nz,RTODK 


dec 


RTO 




RRTC. # OFFH 


J *■ 


Z, SKIPRRTO 


inc 


RRTO 


cp 


SKIPRAD T 0« #00 


j r 


nz, LEARN DBOK 


Cp 


R^MnnP C - !*■ 


J 


nz , LEARN D5 OK 


t- rn 


n^ro^t" # c ^TTVc. ^ k 

^ O ^ w — f Tr k» «~ a n »-» 


j- 


z, frsv::lcse: 


Cp 




j r 


z, LEARN DBOK 


dec 


LEARN DE 


jr 


LEARN DECK 


cp 


LE ARK DB , # OFFH 


jr 


z, LEARN DBOK 


inc 


LEARN Dr 



; test for the end 

; down count the light time 



; test for the radio time out 
; if not timed out donot clear b 
; If we are in a special learn mode, 
then don't clear the code flag 

; else clear the b code flag 

; increment the radio time out 

; if the radio timeout ok then skip 

; back turn 

; test for roll 
; if so then skip 



; Test for EE PROM communication 
If so, skip reading program switch 

; Test for in RS232 mode, 
if so, don't update the debouncer 

; Test for program switch 
if the switch is closed count up 
test for the non decrement point 
if at end skip dec 



; test for debouncer at max. 
if not at max increment 

; increase the learn debounce timer 



LEARND30K: 

AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



AUXLIGKT : 
test_licht_ on : 
cp 



cp 

jr 

cp 

jr 

xcr 

clr 



LIGH?_FLAG , #LIC 
z, de=_licht 

light i s , *: :■ 

z,NOiS 

light: s, #: 

nz,N01S 

p0, #W0RKLIGH7 



NOIS: 



FLASK_FLAG, # FLASH 
nz, dec_light 

FLASK_DE LAY 
nz, dec_light 

STATUS, #RSSTATUS 
z, BiinkDone 
Toggle the wall control LED 



cf 
jr 
clr 
dec 
jr 

cp 

j2 



cp 
jr 

TurnltOf f : 



Turn It Or. : 



BiinkDone : 



STATUS, #WALLOFF 
z, TurnltOn 



El ink Dene 



SWITCH DELAY, fiCKD DEL EX 



FLA or. i- - - , * r ^r-. z r. . iMi 



test for no flash 
if not skip 
test for timeout 
if not skip 
toggle light 
one shot ec 



; Keep the vacation flash timer off 
; 250 ms period 



; Test for in RS232 mode 
; If sc, don't blink the LED 

; See if the LED is off or on 



; Turn the light of 



; Turn the light cn 
; Reset the delay time for charge 
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dec 

jr 

clr 

dec_light : 
cp 
jr 
tm 
jr 

decw 

jr 

ar^G 

cp 

jr 

clr 

or 

exit_light : 
ret 



FLASH_COUNTER 
nz, dec_light 
FLASH_FLAG 

LIGHT_TIMER_HI , #OFFH 
z, exit_light 
TOEXT, #OOOlO000b 
nz, exit_light 
LIGHTJTIMER 
nz, exit_light 
p0,# (-LIGHT_ONj 
L_A_C , #00 
z, exit_light 
L_A_C 

ledport, #ledh 



; test for the timer ignore 
; if set then ignore 
; Decrement the light "every 8 ms 
(Use TOExt to prescale) 
* 

; if timer 0 turn off the light 

; turn off the light 

; Test for in a learn mode 
If not, leave the LED alone 

; Leave the learn mode 
turn off the LED for program mode 

; return 



MOTOR STATE MACHINE 



STATEMACKINE: 



cp 


MOTDEL, #0FFH 


jr 


z, MOTDELDONE 


inc 


MOTDEL 


DONE : 




xor 


p2 , # FALSE I R 


cp 


DOG2, #6 


jP 


ugt , START 


cp 


STATE, #6 


jp 


ugt , start 


3P 


z, stop 


cp 


STATE, #3 


jp 


z, start 


cp 


STATE, # 0 


jp 


z, auto_rev 


cp 


STATE , #1 


jp 


z,up directicr; 


cp 


STATE, #2 


jp 


z,up position 


cp 


STATE, #4 


jp 


z , dn_directicn 


jp 


dn_posi.tior. 



Test for max. motor delay 
if do, don't increment 
update the motor delay 

; toggle aux output 

; test the 2nd watchdog for problem 

; if problem reset 

; test for legal number 

; if not the reset 

; stop meter 6 

; test for legal number 

; if not the reset 
; test for autorev 
; auto reversing 0 
for up 

; door is going up 1 
for autorev 
is up 2 
for autorev 

; door is going down 4 
door is down 5 



test 

test 
door 
test 



AUTO REV ROUTINE 



auto_rev : 
cp 
jr 
and 

; clr 
LEAVEREV : 
cp 
jr 

AREVOFF : 

and 

AREVON : 

WDT 

call 

1c 

oi 

dec 

dec 

ei 



F ARE V FLAG, #0&SH 
nz, LEAVEREV 
pO, #LOW (-WORKLIGHT) 
FARE V FLAG 

MOTDEL, #10 
ult, AREVON 



'; test for the forced up flag 

turn off light 

; one shot temp test 

; Test for 40 ms passed 

; If not, keep the relay on 



p0,#LOW(-MOTOR_UP & ~MOTOR_DN) 



KOLDFREV 

LIGK7_FLA3, FLIGHT 

AUTO_DELAY 
BAUTO DELAY 



; disable motor 

; kick the dog 

; hold off the force reverse 

; fcrce the light on nc clink 



; wait for .5 second 
; wait for .5 second 
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nz, arswitch 



; test switches 



or 

* 


p2 , #FALSEIR 


; LOOK 


FOR LIMIT HERE (No) 


Id 


REASON, #4 OH 


CP 


L_A_C, $01 bH 


jP 


nz, SET UP NOBLINK 


Id 


LAC, #076K 


jP 


set_up_noblin?: 


arswitch : 




Id 


REASON, #C OH 


di 




cp 


SW DATA, *CMD_SW 


clr 


SK_DATA 


ei 




DP 


2, SET STOF STATE 


Id 


REASON, #10H 


cp 


RADIO CMD,#0AAH 


jP 


Z, SET STOP STATE 


exit_autc_re 




ret 





set aux output 



for FEMA 



; set the reason for the change 
Check for learning limits, 
If not, proceed normally 

; set the state 

; set the reason to command 

; test for a command 



if so then stop 

set the reason as radio command 
test for a radio command 
if so the stop 

return 



HOLDFREV: 
id 
Id 
di 
clr 
clr 
ei 
ret 



RPMONES, #2 4 4 
R PMC LEAR, *I22 

RPK COUNT 
BRPK COUNT 



set the hold off 

; clear rpm reverse .5 sec 



start with a count of 0 
start with a count of 0 



DOOR GOING UF 

i " ~ " — •— 

up_di recti on : 

WD7 ; kick the doc 

cp One? £5 5, STATE ; Test for the memory read one-she: 

jr z, Vpheazy ; If so, continue 

ret ; Else wait 
UpReady : 

call HOL-FRZV ; hold off the force reverse 

Id L I GKT_ FLAG, FLIGHT ; force the light on nc blink 

and pC,*LOtf -MCTC?_CN 1 ; disable down relay 

or pC,#LIGHT_ON ; turn on the light 

cp MOTDEL,#10 ; test for 40 milliseconds 

jr ule,UPOFF ; if not timed 

Checkup-Slink : 

and P2K_SHADOW, *-BLINK_FIN ; Turn on the blink output 

Id P2M, P2K_SHADOK 

o: F2, *»Ei:Nr'_?::: ; Turn on the blinker 

decw ELINK ; Decrement blink time 

tir. BLINK_KI, ilOCOOOOC'fc ; Test for pre-travel blinking done 

jp 2, NctUpSlow ; if not, delay normal motor travel 

UPON: 

or pO, # (MOTOR_UP I LIGHT_ON) ; turn on the motor and light 

UPOFF: 

cr F3?.CZ_IGN0RE, * 1 ; test fro the end of the force ign 

ir n: , SKIPUFRPX ; if not donot test rpm count 

ct r.'rV._?.ZZ':Y~. ; test for less the 2 pulses 

jr ugt , SF.irU??.?:-: ; 

Id FA-JLTCCDE, #35r. 
St'. I F'JFr.rM : 
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cp FORCE_IGNORE, #00 

jr nz, test_up_sw_pre 

TEST_UP_FORCE: 
di 

RPM_TIMEJDUT 
BRPM TIME OUT 



J 



dec 
dec 
ei 
jr 
cp 
jr 

TestUpForcePot 
di 
cp 
jr 
jr 
cp 
jr 



z, failed_up_rpm 
RampFlag, #RAMPUP 
z, test_up_sw 



RPM_PERIOD_HI , UF_FORCE_HI 
ugt , fa i 1 ed_up_rpm 
ult, test_up_sw 
RPM_PERIOD_LO, UP_FORCE_LO 
ult, test_up_sw 



; test timer for done 
; if timer not up do not test force 



; decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 
; If not, always do full force check 

; turn off the interrupt 
; Test the RPM against the force setting 



f ailed_up_rpm: 

Id REASON, #2 OH 

cp L_A_C, #07 6H 

jp nz, SET_STOP_STATE 

Id L_A_C, #077K 

jp SET_STOP_STA7E 

test_up_sw_pre : 
di 

dec FORCE_IGNORE 

dec BFORCE_IGNORE 
test_up_sw : 
di 
Id 

Id 
sub 
sbc 
cp 
jr 
cp 
jr 



; set the reason as force 
If we're learning limits, 
then set the flag to store 



LIM_TEST_HI, 
LIM_TEST_LO, 
LIM_TEST_LO, 
LIM_TEST_HI , 

position_k:, 

ugt, UpPosKnown 
POSITION_HI, #050K 
ult, UpPosKnown 



PCSITION_HI 
POSIT IOK_LO 
UP_LIKIT_LO 
UP_LIMIT_HI 

#05CH 



ei 

UpPosUnknown : 

sub 

sbc 

add 

adc 
UpPosKnown : 

ei 

cp 

jr 

ct 

jr 

cp 

jr 

TestForPastUp : 

trr. 

close) 

jr 

AtUpLimit ; 
Id 
cp 
jr 
cp 
jP 
Id 



lik_tes7_lc, #c€2h 

lim_test_hi , # 0"? fh 

l i k_7es7_lc , dn_l i hi t_lc 

lik test hi, d:-:_lik:t_h: 



L_A_C, #07 OH 
z, test_up_time 
LIK__TEST_HI, #0C 
nz, TestForPastUp 
LIM_TEST_LO, #00 
z , AtUpLimit 



lik_test_h: 

, get_sw 



J. v v U v v ■J Z 



ReLearnLim: 
1 c 
jp 



get_sw : 



cp 
jr 



REASON, #5 OH 
L_A_C, #072H 
z, ReLearnLim 
L_A_C, #07 6H 
nz, SET_UP_POS_STATE 
L_A_C, #077H 
SET_U?_?CS_S7A7I 

L_A_C, *:-2r. 

SET_Ur_?G£_S7A7E 

L_A_C, #07 OK 
Z, NotUpSiow 



Calculate the distance from the up limit 



; Test for lost door 

; If not lost, limit test is done 



Calculate the total travel distance allowed 
from the floor when lost 



If we're positioning the door, forget the limit 
; and the wall control and radio 
; Test for exactly at the limit 
; If not, see if we've passed the limit 



; Test for a negative result (past the limi 

; If so, set the limit 

; set the reason as limit 
; If we're re-learning limits, 
; jump 

; If we're learning limits, 

,- then set the flag to store 



; Test for positioning the up limit 
; If so, don't slow down 
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LIM TEST_HI, #HIGH(UPSLOWSTART) ; Test for start of slowdown 

nz, NotUpSlow ; (Cheating — the high byte of the "number is zero) 

LIM_TEST_LO, # LOW (UPS LOW START ) 
ugt, NotUpSlow ; 



TestUpSlow: 
cp 
jr 
cp 

jr 

UpSlow: 

Id 

NotUpSlow: 
Id 
cp 

jP 
Id 
di 
cp 
clr 
ei 
jr 
jP 

test_up_time : 

Id REASON, #7 OH 

decw MOTOR_TIMER 
j p z, SET_STOr_STATE 

exit_up_dir : 
re; 



RampFlag, # RAMP DOWN 

REASON, #1 OH 
RADIO_CMD, # OAAH 
z , SET_STOP_STATE 
REASON, #0 OH 

SW_DATA, #CMD_SW 
SW_DATA 

ne, test_up_time 
SET STOP STATE 



; Set the slowdown flag 



set the radio command reason 
test for a radio command 
if so stop 

set the reason as a command 
test for a command condition 



; set the reason as a time out 
decrement motor timer 



; return to caller 



DO OP. UP 



up_pcsition : 
WDT 
cp 
jr 
and 
j r 

LEAVE LIGHT : 
Id 

UPNOFLASH: 
cp 

j r 

UFLIMOFF: 

and 
UFLIMOK: 

cp 

jr 

Id 

CF 

3 r 

Id 

di 

cp 

cir 

ei 

i r 

rei 

SETDNDIRSTA1 
Id 
jp 



FAREVFLAG, #068H 

nz, LEAVE LIGHT 

pC, #LOW (-WORKLIGHT) 

UPNOFLASH 

LIGHT_FLAG, #00H 

MOTDEL, #10 
uit, UPLIMON 



; kick the dog 

; test for the forced up flag 

; turn off light 

; skip clearing the flash flag 

; allow blink 

; Test for 40 ms passed 
; If not, keep the relay on 



p 0 , * LOW i - KOTO? _ T J ? & ~MCTOR_DN . ; disable mot o r 



L_A_C, #C"3H 
Z , LACUFFCS 
SW_DATA, #LIGHT_SK 
z , wcrk_up 
REASON, #iOK 
RADIO_CMD, #0AAH 
z, SET DN DIRS TATE 
REASON, *00H 

SVC_DATA, #CMD_SW 
SW_DATA 

z, SETDNDIRSTATE 
'E : 

ONEF2, #10 

SET DN DIR STATE 



; If we've begur. the learn limits cycle, 

; then delay before traveling 
; light sw debounced? 

i 

; set the reason as a radio comma: 

; test for a radio cmd 

; if so start down 

; set the reason as a command 

; command sw debounced? 



; i f command 



; set the 1.2 sec timer 



LACUPPOS: 



UpTimeGk : 

decw 

Start LAC Dowr 



KOTO?. TIMER HI, ¥ H I GH '. LA CT I ME ; Make sure we're set to the proper time 
uie, UpTimeC:-: 
M OT OR_T IKE F._ 



-:i , # H I G H ( LAC T I ME ) 
, ¥ LOW . LACT IMF 



MOT OR_TIMER 
r.z , uc pes re: 



; Count down more time 
; If net timed out, leave 
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Id L_A_C, #074H 

clr UP_LIMIT_HI 

clr UP_LIMIT_LO 

clr POSITION_HI 

Clr POSITIONAL/) 

Id PassCounter, #030H 

j p SET_DN_DI R_STATE 



Set state as traveling down in LAC 
; Clear the up limit 
; and the position for 
; determining the new up 
; limit of travel 

Set pass points at max. 

; Start door traveling down 



work_up: 

xor 

Id 

and 

up_pos_ret : 
ret 



pO, #WORKLIGHT 

LI GHT_T IMER_K I , #0 FFH 

SW DATA, #LOW J -LIGHT SWj 



; toggle work light 
; set the timer ignore 
Clear the worklight bit 

; return 



DOOR GOING DOWN 



dn_di recti on : 
WDT 
CP 

jr 
ret 

DownReady : 
call 
clr 
Id 



One Pass, STATE 
z, DownReady 



HOLDFREV 

FLASH_FLAG 

LIGHT FLAG, # LIGHT 



and pO, #LOW (-MOTOR_UF; 



; kick the dog 

; Test for the memory read one-shot 
If so, continue 
; else wait 

; hold off the force reverse 
; turn off the flash 
; force the light on no blink 
turn off motor up 



or p0,#LIGHT_ON 
cp MOT DEL/ #10 

jr ule , DNOFF 



turn on the light 

test for 40 milliseconds 

if not timed 



CheckDnElink: 
and 
Id 
or 

decw 
tm 

jr 



P2m_shadow, #~eiik:-:_fik 
p2m, p2m_skadok 
p2, #5link_pin 

BLINK 

BLINK_HI, # 10000000b 
2, Nor Dn Slow 



; Turn on the blink output 
/ 

; Turn on the blinker 
; Decrement blink time 
; Test for pre-travel blink done 
If not, don't start the motor 



DN ON : 



or 

DNOFF: 

cp 
jr 
cp 
jr 
Id 

SKIPDNRPK: 
cp 
jr 



pC , # tM070?._Di: i l: 

FORCE_ IGNORE , #C1 
n2, SKIPDKRrK 
RPK_ACOUNT, #C2K 
ugt, SKIFDNRPM 
FAULTCODE, #05h 

FORCE_IGNORE, #00 
nz, test_dr._sw_pre 



turn en the motor and light 

; test fro the end of the force ignore 
if not donot test rpmcount 

; test for less the 2 pulses 



; test timer for done 

; if timer not up do not test force 



TEST_DOWN FORCE 
di 
dec 
dec 
ei 
jr 
cp 



RPMJTIMEJOUT 
BRPM TIME OUT 



2 , f a i 1 e d_dn_r pm 
RampFlag, #RAM?UP 
z, test dr. 5v.- 



TestDcwnr orcePct 
di 
cr 



jr 
cp 
jr 



ugt, :a:;e:_; 
ult, test dn 



decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 

If net, always do full force check 



i est 



; turn off the interrupt 
the RPK against the force settin-: 
oc slew then force reverse 
; if faster then we're fine 



FORCE 



ult, test dn sw 
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3* 
cp 

jr 

DnSlow: 

Id 

NotDnSlow: 
Id 
cp 

jP 
Id 
di 
cp 
clr 
ei 
jP 

test_dn_time 
Id 

decw 
jP 

test_obs_count : 

cp OBS COUNT, #00 



nz, NotDnSlow (Cheating 
LIM_TEST_LO, # LOW ( DNS LOW START ) 
ugt, NotDnSlow 



the high byte is zero) 



RampFlag, # RAM? DOWN 

REASON, #1 OH 
RADIO_CMD, # OAAH 
z, SET_AREV_STATE 
REASON, #00H 

SW_DATA, #CKD_SW 
SW_DATA 

z , SET_AREV_STATE 

REASON, #7 OK 
MOTOR_T I MER 
z , SET_AREV_STATE 



Set the slowdown flag 

; set the reason as radio command 

; test for a radio command 

; if so a rev 

; set the reason as command 

; test for command 



; set the reason as timeout 
decrement motor timer 



3 r 
cp 

3 r 
cp 
jr 
cp 



OBSAREV : 
Id 
Id 

I 3 

Id 
DP 

OBSTESTB: 
cp 

exit_dn_di: 
ret 



nz, exit_dn_dir 
FORCE_I GNORE , # {ONE_SEC / 2) 
ugt , ex::_Gr_cir 
LAST_CMD,#0G 
z, OBSTESTB 
CMD_DEE, # OFFH 
nz, OBSAREV 

exit dn dir 



FLASK_FLAG, # 0 FFH 
FLASH_COUNTER, #20 
FLASK_DELAY, #FLASH_7 
REASON, #3 OH 
SET_AREV_ STATE 

CodeFlag, #BRECEIVED 
nz, OBSAREV 



; Test the obs count 
; if not done, don't reverse 
; Test for 0.5 second passed 
; if within first 0.5 sec, ignore it 
test for the last command from radio 

; if last command was a radio test b 
; test for the command switch holding 
; if the command switch is not holding 
; do the autorev 
; otherwise skip 

; set flag 
set for 10 flashes 

set for .5 Kz period 
set the reason as autoreverse 



; test for the b code flag 
if not b code then arev 

return 



DOOR DOWK 



dn_posit ion 
WD? 
cp 
jr 
and 
jr 

DNLEAVEL: 

Id 

DNNOFLASH: 
cp 
jr 

DNLIMOFF: 

and 
DNLIMON: 

cr 

j r 
Id 



Id 

di 

CD 



FAREVFLAG, #068H 

nz, DNLEAVEL 

pO, #LOK v^WORKLIGHT } 

DNNOFLASH 



LIGH?_FLAG, #00H 

MOT DEL, #10 
ult, DNLIMON 



kick the dog 

test for the forced up flag 



turn off light 

; skip clearing the flash flag 



; allow blink 

; Test for 40 ms passed 
; If not, keep the relay on 



pO, #LOW (~MOTOR_UP & -MOTOR_DN) ; disable motor 

SK DATA , FLIGHT SK ; debounced? light 

z , wcrk_dn 
REASON, #10H 

RA::c_r!:i, kaah 

Z, SETuFHIRSTATE 
REASON, #00H 

SK_DA?A, #CKC_SW 



set the reason as a radio comminc 
test fcr a radic corjr.a'r.d 
if so go up 

set the reason as a command 



; command sw pressed? 
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fail ed_dn_rpm : 



cp 


L _ A _ C ' W4H 




jp 


z, DnLearnRev 


* 


tm 


POSITION_HI, #11000000b 




jr 


nz, DnRPMRev 




tm 


LIM_TEST_HI, fllOOOOOOOb 




jr 


nz, DoDownLimit 




DnRPMRev : 






Id 


REASON, #2 OK 




cp 


POSITION HI, #0B0K 




jP 


• ugt, SET AREV STATE 




cp 


POSITION HI, #05GK 




jP 


u 1 1 , SET_ARE V_ S TATE 


r 


di 






Id 


POSITION HI, #0*7FK 


* 


Id 


POSITIONAL©, #080K 




ei 






jP 


SET_AREV_STATE 




DnLearnRev: 






Id 


L_A_C, #075H 


* 


jP 


SET_AREV_STATE 





Test for learning limits 

If not, set the state normally 

; Test for below last pass point 

if not, we're nowhere near the limit 
; Test for beyond the down limit 
; If so, we've driven into the down limit 

; set the reason as force 
Test for lost, 

if not, autoreverse normally 



; Disable interrupts 
Reset lost position for max. travel up 

; Re-enable interrupts 



Set proper LAC 



test dr. sw pre: 




di 






dec 


FORCE IGNORE 




dec 


BFORCE_IGNORE 




test dn sw: 






di 






cp 


POSITIONJU, #050K 




jr 


ult, TestDnLimGocd 




cp 


POSITIONJ2I, #OBGH 




i r 


ult, NotDnSlcw 




TestDnLimGocd : 




Id 


LIM TEST HI, DN LIMIT 


HI 


Id 


LIMJTEST LO, DN LIMIT 


LO 


sub 


LIM_TEST_LO, POSITION 


LO 


sbc 


LIM__TEST_HI , POSITION 


_HI 


ei 






cp 


L_A_C, #07 OH 




jr 


uge, test_dr._t irr.e 




t rr. 


lim_test_h: , :•: : :• 




jr 


z, cali_sw_dn 




cp 


LIMJTEST_LC, #'255 - 


36; 


jr 


ugt, NotDr.Slow 




DoDownLimit ; 






Id 


REASON, #5 OH 




cp 


CMD DEB, #0FFK 




jr 


nz, TESTRADIC 




Id 


REASON , #9 OK 




jr 


TESTFORCEIG 




TESTRADIC: 






cp 


LAST CMD, #00 




jr 


nz, TESTFORCEIG 




cp 


CodeFlag, #BRECEIVED 




jr 


nz , TESTFORCEIG 




Id 


REASON , # OA OK 




TESTFORCEIG: 






cp 


FORCE IGNORE, #00H 




jr 


Z , NOAREVDN 




id 


REASON, * i C h 




jP 


SE7_AREY_STA7E 




NCAREVDN : 






and 


pO , # LOW ( -MC7C-. DN 




jp 


SET_DN_PCS_STATE 





cali_sw_dr 
cp 



Test for lost in mid travel 

If so, don't test for limit until 
; a proper pass point is seen 

Measure the distance to the down limit 



; If we're in the learn cycle, forget the limit 
; and ignore the radic and wall control 
; Test fcr a negative result (past the down 

; If so, set the limit 

; Test for 36 pulses (3") beyond the limit 

; if not, then keep driving into the floor 

; set the reason as a limit 

; test for the switch still held 

r 

; closed with the control held 



test for the last command being radio 
if not test force 
test for the b code flag 

; set the reason as b code to limit 

; test the force ignore for done 

; a rev if limit before fcrce enable: 

; early limit 

; set autoreverse 



; set the state 

LIK.TES7_KI, #HIGH • DNSLOa START ) ; Test for start of slowdown 
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clr 
ei 

jr 
ret 



SW_DATA 

z, SETUPDIRSTATE 



; if so go up 



SETUPDIRSTATE: 

Id ONEP2,#10 



DP 

work_dn : 

xor 

Id 

and 

dn_pos_ret : 
ret 



; set the 1.2 sec timer 



SET UP DIR STATE 



pO,#WORKLIGHT ; toggle work light 

LIGHT_TIMER_HI,#OFFH ; set the timer ignore 

SW_DATA, # LOW {-LIGKT_SW ; ; Clear the worklight bit 

; return 



STOP 



stop: 

WDT 

cp 

D r 
and 

jr 

LEAVESTOP: 
Id 

STOPNOFLASH: 
cp 
jr 

STOPMIDOFF: 
and 

STOPMIDON: 
CF 
jr 
Id 
cp 

DP 

Id 

ci 

cp 

clr 

ei 

DP 
ret 

work_stop : 
xcr 
Id 
and 

stop_ret : 
ret 



FARE V FLAG, #05&K 
n: , LEAVESTOP 

pC, #LOW '-worklight: 

STOPNOFLASH 

LIGHT_FLAG, #00H 

MOTDEL, #10 
ult, STOPMIDON 

pC, #LOK (-MOTOR_U? & 

SW_DATA, #L:GKT_SW 
2 , wor k_stcp 
REASON, #1 OH 
RADIO_CMD, #0AAK 
z, SET_DN_DI RESTATE 
REASON , #00K 

SW_DATA, #CK:_Sa 
SW_DATA 

z, set_d::_i :?_5T.-.Ti 



; kick the dog 

; test for the forced up flag 

turn off light 



; allow blink 

; Test for 40 ms passed 

; If not, keep the relay on 

-MOTOR_DN) ; disable motor 

; debounced? light 

set the reason as radio command 
test for a radio command 
; if so go down 

; set the reason as a command 

; command sw pressed? 
; if so gc dowr. 



pO, # WORKLIGHT 
LIGHT_TIKER_HI , # OFFK 
SVv DATA , * LOW ; - L I GH T _S v 



; toggle work light 
; set the timer ignore 
; Clear the worklight bit 

; return 



SET THE AUTOREV STATE 



SET_AREV_ STATE : 
di 
cp 



cp 

j r 
cp 



L_A_C, #07 OH 
uge, LearningRev 



POSITION_HI, #020H 
ult , DcTheArev 

fos:tioi:_h: , f 

uot , DcTheArev 



; Test for learning limits, 

; If not, do a normal autoreverse 

; Look for lost postion 

; If not, proceed as normal 
; Lock for lost postion 

; If not, proceed as normal 



; Otherwise, we're _cs 
cp REASON, #02GH 

jr uge, DcTheArev 
clr RAOIC CM:- 



no re commands 

; Don't respond to command or radio 

; Throw out the radio command 
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ei 
ret 



; Otherwise, just ignore it 



DoTheArev : 



Id 


STATE, #AUTO 


REV 


; if we got here, then reverse 


motor 


Id 


RampFlag, #STILL 


; Set the FET * s to off 




clr 


PowerLevel 




; 




jr 


SET_ANY 




; Done 




LearningRev: 










Id 


STATE, #AU7C_ 


REV 


; if we got here, then reverse 


motor 


Id 


RampFlag, #S 


TILL 


; Set the FET 1 s to off 




clr 


PowerLevel 








CD 


LAC, #Q*?5H 




; Check for proper reversal 




J *■ 


nz, ErrorLearnArev 


; If not, stop the learn cycle 




CD 


PassCounter , 


K30K 


; If we haven't seen a pass point, 




i r 
J 


z, ErrorLearnArev 


; then flag an error 




Good Lea rnArev 










CD 


POSITION HI, 


#00 


; Test for down limit at least 




jr 


nz, DnLimGood 


; 20 pulses away froin pass point 




cp 


POSITION_LO, 


#20 






jr 


ult, MoveFassFcint 


; If not, use the upper pass point 




DnLimGood : 










and 


PassCounter, 


#lCO0O0O0b 


; Set at lowest pass point 




GotDnLim: 










di 










Id 


DK LIMIT HI, 


POSITION HI 


; Set the new down limit 




Id 


DN LIMIT_LG, 


POSITION LO 






add 


DN LIMIT_LC, 


#01 


i AHH in a nnl q» T o mia rant 


rpvpr^a 1 esff r hp hi or W 


adc 


DK LIKIT_HI, 








jr 


SET ANY 








ErrorLearnArev : 








Id 


LAC, *C71K 




/ «. LUC w ^ Hi i. t. U - i i X i i ^ O L o c 




jr 


SET_AKY 








MovePassPoint 










cp 


PassCounter , 


#02FH 


; If we have only one pass point, 




jr 


z, ErrorLear 


nArev 


; don't allow it to be this 


close to the floor 


di 
add 


POSITION_LO, 


¥ LOW ;prCI!:TP r J 


LSES) ; Use the next pass point up 




adc 


POSITIONER I, 




ULSES) ; 




add 


UP LIMIT LO, 


*L0a ?r?IN7F*J 


LSES' ; 




adc 


uf_likit__hi, 


#h:gh ■ fpcintf 






ei 










or 


PassCounter, 


#oi:ii::it 


; Set pass counter at -1 




jr 


GotDnLim 




i 





SET THE STOPPED ST A" 



SET_STOr_STATE: 
di 
cp 
jr 
cp 

jr 

cp 

jr 



L_A_C, * 07 OH 
uge, DcTheStcp 
POSITIONJ4I, #020H 
ult, DoTheStop 
POSITION_HI, #0D0H 
ugt, DoTheStop 



; If we're in the learn mode, 

; Then don't ignore anything 

; Look for lost postion 

; If not, proceed as normal 

; Look for lost postion 

; If not, proceed as normal 



; Otherwise, we're lost — 
C p F.E A S ON , * -j 2 j K 

j r uge, DcThe S t cp 



cr 

ei 

ret 



*.c re commands 

; Don't respond to command or radic 



Throw cut the radic comma: 
Otherwise, just ignore it 



DoTheStop : 
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Id 
Id 
clr 



STATE, #STOP 
RampFlag, # STILL 
Power Level 
SET ANY 



•j 



Stop the motor at the FET ■ s 



SET THE DOWN DIRECTION STATE 



SET DN DIR STATE: 



Id 

call 

tm 

jr 

Id 

Id 



BLINK_HI, #0FFK 
LookForFlasher 
P2, #BLINK_PIN 
nz , SET_DN_NOBLINK 
BLINK_LO, #0FFH 
BLINK HI, #01H 



; Initially disable pre-travel blink 
;Test to see if flasher present 
;If the flasher is not present, 
;don't flash it 

;Turn on the blink timer 



SET DN NOBLINK: 



di 
Id 
Id 
Id 

clr 

cp 
jr 

cp 

DP 
cp 

jP 



LostDn : 



cp 

jr 
tm 
jr 
tcrr. 

j r 



RampFlag, #RAMPUP 
Power Level, #4 
STATE, #DN_DI RECTI OK 
FARE V FLAG 

L_A_C, #070H 
uge, SET_ANY 



POSITION_HI, 
Ult, SET_ANY 
POSITION_HI, 
ugt, SET_ANY 



#C20H 



#0D0K 



FirstRun, #00 
nz, SET_ANY 

PassCounter, #0111111 lb 
2, SET_UF_DIR_STATE 
PassCcunter , #0111 II lit 
z, SET_UF_DIR_STATE 
SET ANY 



; Set the flag to accelerate motor 

; Set speed at minimum 

; energize door 

; one shot the forced reverse 

If we're learning the limits, 

Then don't bother with testing anything 

Look for lost postion 

If not, proceed as normal 

Look for lost postion 

If not, proceed as normal 



If this isn't our first operation when lost, 

; then ALWAYS head down 

; If we are below the lowest 
pass point, head up to see it 

; If cur pass pcint number is set at -1, 
then go up to find the position 

; Otherwise, proceed normally 



SET THE DOWN FOSITION STATE 



SET_DN_POS_STATE : 
di 

id STATE, # DISPOSITION ; load new state 

Id RampFlag, #STILL ; Stop the motor at the FET ' s 

clr Power Level ; 
j r SET_ANY 



SET THE UP DIRECTION STATE 



SET UP DIR STATE: 



Id BLINK_HI , #0FFH 

call LookForFlasher 

tm P2, #BLINK_PIN 

-r nz, SET _ T J F _N Or 1 1 KY. 

Id E1INK_L0, #0F?H 

Id BLINK HI, #0IH 



: dc: 



; Initially turn off blink 
;Test to see if flasher present 
;If the flasher is not present, 

: 't flash it 

;Turn on the blink timer 



SZ1 



Ur_N0cI 

di 



INK: 



Ramprlas, #rAtf?U 
Power Lev el; #4 



Set the flag tc accelerate 
Start speed at minimum 



m£>: 
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.Id STATE, #UP_DI RECTI ON 

jr SET_ANY 



SET THE UP POSITION STATE 



SET_UP_POS_STATE : 

di 

Id STATE , #UP_POSITION 

Id RampFlag, #STILL 
clr Power Level 



Stop the motor at the FET 1 s 



SET ANY STATE 



SET ANY: 



and P2M_SHADOW, #-BLINK_PIN 
Id P2M, P2M_SHADOW 

and P2, #-BLINK_PIN 



PPOINT_DEB, #2 
ult, NoPreFPoint 



cp 
jr 

PrePPoint : 
or 
jr 

NoPrePPoint : 

and PassCounter, #01111111b 
PrePPointDone : 



PassCounter, #1000000Cb 
PrePPointDone 



Id 

Id 

di 

clr 

clr 

Id 

Id 

Id 

Id 

Id 

ei 

di 

cp 

jr 

push 

push 

Id 

Id 

sub 

sbc 

cp 

jr 

jr 

cp 

jr 

DoorlsShort : 
Id 
jr 

DoorlsNorm: 
Id 

DoorSet : 

pop 

pop 

Id 

Id 

Mc.cr7ir.eSet 
ei 
clr 
clr 
Id 



FirstRun, # OFFH 
BSTATE, STATE 

RPM_COUNT 
BRPM_COUNT 

AUTG_ DELAY , # AU7 C_RE V_T I KE ; 
BAUTO_DELAY , #AUTO_REVJTIME. ; 
FORCE_I GNORE , #ONE_SEC 
BFORCE_IGNORE, #ONE_SEC 
RPM PERIOD HI, #CFFH 



DK_LIMIT_HI 
DN_LIMI7_LC 
UP_LIMIT_LO 
U?_LIMIT_HI 
#HIGH ( SHORT DOOR 



L_A_C, #07 OH 
uge, LearnKo 

lim_test_k: 
lim_test_lc 
lim_test_hi, 
lim_tes7_lo, 
lim_test_lo, 
lih_test_h: , 
lim_test_hi, 

ugt, DoorlsNorr. 
ult, DoorlsShort 
LIM_TES7_L0, #LOVv i SHORT DOOR) 
ugt, ' DoorlsNorm 

MaxSpeed, #12 
DoorSet 

MaxSpeed, #20 



lim_test_lo 

ltk_test_h7 

mctor_timer_k: , #h:gh ■ motortime 
motor timer lo, # low ( motortike ; 



Turn on the blink output 

Turn off the light 

; Test for pass point being seen 
; If signal is low, none seen 

; Flag pass point signal high 
; Flag pass point signal low 



; One-shot the first run flag DONE IN MAIN 
set the backup state 

; clear the rpm counter 

set the .5 second auto rev timer 

; set the force ignore timer to one sec 

; set the force ignore timer to one sec 

; Set the RPM period to max. to start 

; Flush out any pending interrupts 

If we are in learn mode, 
don't test the travel distance 
; Save the limit tests 

Test the door travel distance to 
see if we are shorter than 2 . 3M 



} ; If we are shorter than 2.3M, 

then set the max. travel speed to 2/3 
Else, normal speed 



Set the max. speed to 2/3 



; Restore the limit tests 



RADIG_CMD 
RPM_ACO'JK7 
STACKREASON, REASON 



; one shot 

; clear the rpm active counter 
save the temp reason 
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Id 


STACK FLAG, #0FFH 


; set the flag 


T-URN ON LIGHT 


; 


- 


call 


SetVarLight 


; Set the worklight to the proper 


tm 


PO, #LIGHT_ON 


; If the light is on skip clearing 


jr 


nz, lighton 


* 


lightof f : 






clr 


MOT DEL " 


; clear the motor delay 


-lighton : 






ret 







LearnModeMotor : 

Id MaxSpeed, #12 ; Default to slower max. speed 

Id MOTOR_T IMER_K I , #KIGH (LEARNT I ME) 

Id MOTOR_T I MER_LO , # LOW ( LEARNT IME ) 

jr MotorTimeSet ; Set door to longer run for learn 



THIS IS THE MOTOR RPM INTERRUPT ROUTINE 



RPM: 

push 

srp 

Id 

Id 

Id 

tm 

jr 

RPMTIMEERROR: 
tm 
jr 

decw 
RPMTIMEOK: 
cp 
jr 
tm 
jr 



rp 

#RPM_GROUP 

rpm_temp_of , T0_OFLOW 
rpm_texnp_hi , T0EX7 
rpm_t emp_l o , T 0 
IRQ, #00010000E 
z, RPMTIMEOK 

rpm_temp_lo, #10000000E 

z, RPMTIMEOK 

r pm_ t emp_h i w o r d 

RPM_FILTER, #128 
ult, RejectTheRPM 
P3, #OOOOOC»10E 
nz, RejectTheRPM 



save current pointer 
point to these reg. 
Read the 2nd extension 
read the timer extension 
read the timer 

test for a pending interrupt 
if not then time ok 

test for timer reload 

if no reload time is ok 

if reloaded then dec the hi to resync 

Signal must have been high for 3 ms before 

the pulse is considered legal 

If the line is sitting high, 

then the falling edge was a noise pulse 



RPMIsGood: 
and 



imr, #lllllCllb 



Id divccunter, 
DivideRPMLoop : 
rcf 



#0 : 



rrc rprr:_terr,p_cf 

rrc rpm_temp_hi 

rrc rpm_t emp_l o 

djnz divcounter, DivideRPMLoop 



; turn off the interupt for up to 500uS 

; Set to divide by 8 (destroys value in RPM_FILTER) 

; Reset the carry 

; Divide the number by 8 so that- 

; it will always fit within 16 bits 

Loop three times (Note: This clears RPM_FILTER) 



Id 
Id 
sub 
sbc 

Id 
Id 

cp 
jr 



TULS: 
INCRPM: 



inc 

inc 



SKIFC: 



jr 
cp 

jr 

UpTimeOut : 



rpm_period_lc, rpm_past_ic ; 

rpm_period_hi , rpm_past_hi ; 

rpm_period_lc, rprr._terr:p_Ic ; find the period of the .last pulse 

rpm_pe r i od_h i , r p:r:_t emp_h i ; 



rpm_past_lo, rpm_temp_lo 
r pm_pa s t _h i , r prr<_ t emp_h i 

r pm_pe r i od_h i , # 1 2 
ult,SKIPC 



RPM_COUNT 

BRPK_COUN7 

RPM_ACOUNT 

R arr.p Tl a c , # rS~2-'. ? 'S ? 

z, MaxTimeOut 

STATE , # DN_DI RECT I ON 

z, DownTimeOut 



Store the current time for the 
next edge capture 

test for a period of at least 6.144mS 

; if the period is less then skip counting 



; increase the rpm count 

; increase the rp:r\ count 

; increase the rpm count 

; If we* re rapping the speed up, 
then set the timeout at max. 

; If we're traveling down, 

; then set the timeout from the down fc 
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Id 

rcf 

rrc 

add 

jr 

MaxTimeOut : 
Id 
jr 

DownTimeOut : 
Id 
rcf 
rrc 
add 

GotTimeOut : 
Id 
ei 



; Set the RPM timeout to be equal to the up force setting 

; Divide by two to account 
; for the different prescalers 

; Round up and account for free-running prescale 



rpm_t ime_out , UP_FORC£_HI 

rpm_time_out 
rpm_time_out, #2 
GotTimeOut 

rpm_time_out, #125 
GotTimeOut 

rpm_time_out , DN_FORCE_HI 

rpm_time_out 
rpm_time_out , #2 

BRPM_TIME_OUT, rpm_time_out ; Set the backup to the same value 



; Set the RPM timeout to be 500ms 



; Set the RPM timeout to be equal to the down force setting 

; Divide by two to account 
; for the different prescalers 

; Round up and account for free-running prescale 



Position Counter 

Position is incremented when going down and decremented when 
going up. The zero position is taken to be the upper edge of the pass 
point signal (i.e. the falling edge in the up direction, the rising edge in 
the down direction) 



cp 
jr 
cp 
jr 
cp 
jr 



STATE , #UF_DI RECTI OK 
z, DecPos 
STATE , #STOP 
z, DecPos 

STATE, #UF_POSITIOK 
z, DecPos 



Test for the proper direction of the counter 



IncPos : 



incw 

cp 

jr 



POSITION 
PP0INT_DE5, #2 
uit, NoDnF Point 



Test for pass point being seen 
If signal is low, none seen 



DnPPoint : 

or 
jr 



PassCounter, #10000 0001: 
CtrDcne 



Mark pass point as currently high 



NoDnPPoint : 

trr. 
j r 

AtDnEdge : 
cp 



FassCcur.ter , 1 - ; 0 ■: 
z, PastDnEdge 



L_A_C, #C74H 
jr nz, Ncrir.siSrwnEdge 

LearnDownEdge : 
di 

sub UF_LIMIT_LO, POSITIOK_LO 
sbc UF_LIMIT_HI, POSITION_KI 
dec PassCounter 
jr Lowes tl 

NcrmalDownEdge : 

dec PassCounter 

tm PassCounter, #01111111b 

jr nz, NotLowestl 



Lowestl : 
di 
clr 

id 
ei 

NotLowestl : 



Id 
clr 



position_hi 

position lc, #: 



z, Drr.tResetWaii 5 
STATUS, flWALLOFF 
VAC FLASH 



; Test for pass point seen before 
If not, then we're past the edge 

Test for learning limits 
if not, treat normally 



Set the up position higher 

; Count pass point as being seen 
; Clear the position counter 

; Mark as one pass point closer to floor 

; Test for lowest pass point 

; If not, don't zero the position counter 



Set the position counter back to zero 



Test for in RS232 mode 
If so, don't blink the LED 
Blink the LED for pass point 
Set the turn-off timer 



DontResetKal 13 : 
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PastDnEdge: 
•NoUpPPoint : 
and 
jr 



PassCounter, *01111111b 
CtrDone 



; Clear the flag for pass point high 



DecPos : 



decw 
cp 
jr 

UpPPoint : 

tm 
jr 

AtUpEdge: 
tm 
jr 

Lowest2 : 
di 
clr 
clr 
ei 

NctLowest2 : 
cp 
jr 
Id 
clr 

DontResetWall2 : 

inc FassCounter 
cp 
jr 
Id 

PastUpEdge : 
or 

CtrDone : 
RejectTheRPM: 



POSITION 
PPOINT_DEB, #2 
ult, NoUpPPoint 



PassCounter, # 10000000b 
nz, PastUpEdge 

PassCounter, #01 11 111 lb 
nz, NotLowest2 



POSITION_HI 
POSITION LO 



STATUS, #RSSTATUS 
z, DontResetWall2 
STATUS, #WALLOFF 
VACFLASH 



PassCounter, FirstRun 
ule, PastUpEdge 
PassCounter, FirstRun 

Pa s s Count e r , #10 000 0 0 Or 



pop 
iret 



rp 



Test for pass point being seen 
If signal is low, none seen 



; Test for pass point seen before 

; If so, then we're past the edge 

; Test for lowest pass point 

; If not, don't zero the position counter 



Set the position counter back to zero 



; Test, for in RS232 mode 

; If so, don't blink the LED 

; Blink the LED for pass point, 

; Set the turn-off timer 

; Mark as one pass point higher above 

; Test for pass point above max. value 

; If not, we're fine 

; Otherwise, correct the pass counter 

; Set the flag for pass point high before 



; return the rp 
; return 



THIS IS THE SWITCH TEST SUBROUTINE 
STATUS 

0 => COMMAND TEST 

1 => WORKLIGHT TEST 

2 => VACATION TEST 

3 => CHARGE 

4 => RS STATUS In RSZ32 rr.cde, don't scan for switches 

5 => WALLOFF — Turn off the wall control LED 

SWITCH DATA 

0 => OPEN 

1 => COMMAND CMD_SW 

2 => WORKLIGHT LIGHT_SW 
4 => VACATION VAC SW 



switches : 



;4-22-97 
CF 
JR 



LIGHT_DE5, #0FFJ- 
NZ , Not He Id Down 



;is the light button being held? 
;if not debounced, skip long hold 
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CP EnableWorkLight, #0il00000B ;has the 10 sec. already passed? 

JR GE, HeldDown 

CP EnableWorkLight, #01010000B 

JK LT, HeldDown 

LD EnableWorkLight, fclOOOOOOOB ;when debounce occurs, set register 

;to initiate e2 write in mainloop 

JR HeldDown 
NotHeldDown : 

CLR EnableWorkLight 
HeldDown: 
* 

and SW_DATA, #LIGH7_SW ; Clear all switches except for worklight 

cp STATUS , #WALL0FF ; Test for illegal status 

jp ugt, start ; if so reset 

jr z, NoWailCtrl ; Turn off wall control state 

cp STATUS, #RSSTATUS ; Check for in RS232 mode 

jr z, NOT FLASHED ; If so, skip the state machine 

cp STATUS, #3 ; test for illegal number 

jp z, charge ; if it is 3 then goto charge 

cp STATUS, #2 ; test for vacation 

jp z , VACAT I ON_TEST ; if so then jump 

cp STATUS, #1 ; test for worklight 

jp z , WORKLIGH7_7ES7 ; if so then jump 

; else it id command 

C OMKAK D__T EST: 

cp VACFLAG,#00H ; test for vacation mode 

jr z , COMKAND_TESTI ; if not vacation skip flash 

inc VACFLASH ; increase the vacation flash timer 

cp VACFLASH, #10 ; test the vacation flash period 

jr ult , COMMAND_TESTI ; if lower period skip flash 

and p3, #-CHARGE_SW ; turn off wall switch 

or p3,#DIS_SW ; enable discharge 

cp VACFLASH, # €C ; test the time delay for max 

jr nz, NOT FLASKET ; if the flash is not done jump and re 

clr VACFLASH ; restart the timer 
NOTFLASHED: 

ret ; return 
NoWailCtrl : 

and P3, #~CHARGE_SW ;. Turn off the circuit • 

or F2, #DIS_SW 

inc VACFLASH ; Update the off time 

cp VACFLASH , *5C ; If off time hasn't expired, 

jr ult, KeepOff ; keep the LED off 

Id STATUS, #CHARGE ; Reset the wall control 

Id SWITCH_DELAV, *CKD_DEL_EX ; Reset the charge timer 
KeepOff: 

ret ; 
COMMAN D_TES71 : 

tm pO, #SWITCHES1 ; command sw pressed? 

jr riZ,CKDCPEK ; open command 

tm PC, #SWITCHES2 ; test the second command input 

jr nz,CMDOPEN 

CM DC LOSE? : ; closed command 

call DECVAC ; decrease vacation debounce 

call DECLIGHT ; decrease light debounce 

cp CMD_DEB, #0FFH ; test for the max number 

jr z,SKIPCMDINC ; if at the max skip inc 
di 

inc CMD_DE5 ; increase the debouncer 

ir.: 5CI-::_L-Zr ; increase the debouncer 
ei 

SKIP ZV. Z IN'C : 

C p CMD_DEE , # ZKl _M-.?:Z 

jr nz, CMDEXIT ; if not made then exit 

call Cr.cSet ; Set the comrriand switch 
CMDEXIT : 
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or 


p3, # CHARGE SW 




* 


turn on the charge system 


and 


p3,#~DIS SW 




i 




Id 


SWITCH DELAY, #CMD_DEL EX 


; set 


the delay time to 8mS 


Id 


STATUS, # CHARGE 




* 


charge time 


CMDDELEXIT: 










ret 










CmdSet : 










cp 


L_A_C, #07 OH 


; Test for in learn limits mode 


j r 


ult, RegCmdMake 






If not, treat as normal command 




ugt, LeaveLAC 


; If 


learning, command button exits 


call 


SET UF NOELINK 






Set the up direction state 


j r 


CMDMAKEDONE 




i 




RegCmdMake : 










CP 


LEARN DB, # 0 FFH 






Test for learn button held 


j r 


z, GoIntoLAC 




so, 


enter the learn mode 


NormalCmd : 










di 










Id 


LAST CMD,#055K 




! 


set the last command as command 


cmd: Id 


SW_DATA, #CMD_SW 




* 


set the switch data as command 


CD 


AUXLEARNSW ,#100 






test the time 


i r 


ugt , SKIF LEAR Is* 








pUSh 


RP 










#LEARNEE GF.r 








call 


SETLEARN~ 




! 


set the learn mode 


clr 


SW DATA 






clear the cmd 


pop 


RP 








or 


pC, # LIGHT ON 


; tur 


n on the light 


call 


TURN_ON_LI GHT 






turn on the light 


CMDMAKEDONE : 










SKIP LEARN: 










Id 


CMD DEE, #0FFH 






set the debouncer to ff one shot 


Id 

ei 


BCMD DEE, #0FFK 






set the debouncer to ff one shot 


ret 
LeaveLAC : 










clr 


L_A_C 






Exit the learn mode 


or 


ledport, #ledh 


; tur 


n c 


ff the LED for program mode 


call 


SET STC? STATE 








3 r 


CMDMAKEDONE 








GcIntcLAC : 











1C 

clr 
clr 
Id 
Id 



FAULT CODE 
CodeFlac 
LEARNT, "#0FFK 
ERASET, # OFFK 
CMDMAKEDONE 



S:dr: the learn limits mode 

; Clear any faults that exist 
; Clear the regular learn mode 

Turn off the learn timer 

Turn off the erase timer 



CMDOPEN : 

ana 

or 

Id 

DEL LOOP : 

dec 
jr 
tm 
jr 

call 

call 
call 
Id 



p3, *-CKARGE_SW 
p3, #DIS_SW 
DELAYC, #16 

DELAYC 

nz, DELLOOF 

pO, #SWITCHES1 

nz, TESTWL 

DECVAC 

DECLIGH? 

DECCKl 

AUXLEARNSW, #CFr 

cmzex:t 



command switch open 
turn off charging sw 
enable discharge 
set the time delay 



; loop till delay is up 
; command line still high 
; if so return later 
if not open line dec all debouncers 



turn off the aux learn switch 
and exit 



TESTWL: 



ret 



STATUS, #WL TEST 



set to test fcr a worklight 
return 
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WORKLIGHTJTEST: 

tir. pO,#SWITCHESl 



nz,TESTVAC2 
DECVAC 
DECCMD 

LIGHT_DEE, #0FFH 
Z,SKIPLIGHTINC 
LIGHT DEB 



3 r 

call 
call 
cp 
jr 

inc _ 
SKIPLIGHTINC: 

cp LIGH7_DES, fcLIGHT__MAi\j 

jr nz, CMDEXIT 

call LightSet 
jr CMDEXIT 



; command line still high 

; exit setting to test for vacation 
decrease the vacation debouncer 
and the command debouncer 

; test for the max 

; if at the max skip inc 

; inc debouncer 

; test for the light make 

; if not then recharge delay 

; Set the light debouncer 

; then recharge 



LightSet : 
Id 
Id 
cp 
jr 
cir 
ret 



LIGHT_D£B, #0FFK 
SW_DATA, #LIGK7_SW 
RRTO, #RDROPTIME 
ugt , CMDEXIT 
AUXLEARNSW 



; set the debouncer to max 
set the data as worklight 

; test for code reception 

; if not then skip the seting of flag 

; start the learn timer 



TESTVAC^ : 
Id 
Id 

LIGHTDELEXIT: 
ret 



STATUS, #VAC_TEST 

s w i t c h_d e 1 a y , # VA C_ DEI 



set the next test as vacation 
set the delay 

return 



VACATIOK_TEST 
djnz 

trr. 
jr 

call 
call 
cp 
jr 
inc 
VACINCSKIP: 
cp 
s r 

VAC IN : 



Cel. 

i r 



s wi t ch_de 1 a y , VAC DE LEX 1 7 

po, #switcke£i 

nz,EXIT_ERF.OR 

DECLIGHT 

DECCKT 

VAC_DEB, # 0 FFK 
z, VACINCSKIP 
VA7_DE5 

VAC FLAG , P:j Z H 
z , VACOUT 

VAC_DEE, #VACJ<AKE_IK 
nz, VACA7I0K_EXIT 
VacSet 

vacatio:; EXIT 



; command line still high 

; exit with a error setting open state 

; decrease the light debouncer 
; decrease the command debouncer 

; test for the max 

; skip the incrementing 

; inc vacation debouncer 

; test for vacation mode 

; if not vacation use out time 

; test for the vacation make pcint 
; exit if not made 



VACOUT : 



cp VAC__DES , # VAC_MAKE_OV 

j r n z , VAC AT I OK_EX I T 

call VacSe i 

jr VACATION_EXIT 



; test for the vacation make point 
; exit if not made 

; Forget vacation mode 



VacSe: 



Id VAC_DEB, # C FFK 

cp AUXLEARNSW, #100 

jr ugt,SKIP_LEARKV 

push RP 

srp #LEARNEE_GRP 

call SET LE ARK 

pec A? 

cr pC , #LIGHT_C:>* 



; set vacation debouncer to max 
; test the time 



; set the learn mode 
; Turn on the worklight 



SKI? le; 



Id 



VACCHANGE, # OAAH 



; set the toggle data 
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cp RRTO, #RDROPTIME 

j r u g t , VAC AT I ON_EX I T 

clr AUXLEARNSW 
VACATION EXIT: 



Id 
Id 

VACDELEXIT: 
ret 



SWITCH_DELAY, #VAC_DEL_EX 
STATUS, # CHARGE 



• 1 1 

; test for code reception 

; if not then skip the seting of flag 

; start the learn timer 

set the delay 

; set the next test as charge 



EXIT_ERROR: 
call 
call 
call 
Id 
Id 
ret 



DECCMD 
DECVAC 
DECLIGKT 

SWITCH_DELAY, #VAC_DEL_EX 
STATUS, # CHARGE 



decrement the debouncers 



set the delay 

; set the next test as charge 



charge : 

or p3, #CHARGE_SW 

and p3,#-DIS_SW 

dec SWITCK_DE1AY 

jr nz , charge_ret 

Id STATUS, #CMD_TE ST 
charge_ret : 
ret 



DECCMD: 

cp 

jr 

di 

dec 

dec 

ei 

SKIPCMDDEC: 
cp 
jr 

call 
DECCMDEXIT: 
ret 



CMD_DEB, #00H 
z, SKIPCMDDEC 

CM2_DEE 
BCMC DEB 



CMD_DEB, #CME_EREAE 
nz, DECCMDEXIT 
CmdRel 



CmdRe2 : 

cp 
jr 

call 
NormCmdEreak : 
di 
clr 
clr 
ei 
ret 



L_A_C , #07 OH 

nz, NormCmdBreek 

SET STO? STATE 



CMD_DEE 
BCMD DEE 



; test for the min number 
; if at the min skip dec 

; decrement debouncer 
; decrement debouncer 



; if not at break then exit 

; if not break then exit 



and exit 



Test for in learn mode 

; If net, treat normally 
; Stop the door 



reset the debouncer 
reset the debouncer 



LIGHT_DEB, #00H 
z,SKIPLIGHTDEC 
LIGHT DEB 



DECLIGHT : 
cp 
jr 

dec _ 
SKIPLIGHTDEC: 

cp LIGHT_DEB, #LIGHT_BREAK 

jr nz, DECLIGHTEXIT 

clr LIGH7_LEr 
DECLIGHTEXIT: 

ret 



test for the min number 
if at the min skip dec 
decrement debouncer 

if not at break then exit 
if not break then exit 
reset the debouncer 

and exit 



DECVAC: 

co VAC DEE,#CCH ; test for the min number 
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Z, SKIPVACDEC 


dec 


VAC_DEB 


SKIPVACDEC : 




cp 


VAC FLAG, #00H 


jr 


Z , DECVACOUT 


DECVACIN: 




cp 


VAC_DEB, #VAC_BREAK_IN 




nz, DECVACEXIT 




CLEARVACDEB 


DECVACOUT : 




cp 


VAC DEB, #VAC_BREAK_OU 


jr 


nz, DECVACEXIT 


CLEARVACDEB: 




clr 


VAC_DEE 


DECVACEXIT: 




ret 





if at the min skip dec 

; decrement debouncer 

test for vacation mode 

; if not vacation use out time 

; test for the vacation break point 
; exit if not 



; test for the vacation break point 

; exit if not 

; reset the debouncer 

; and exit 



FORCE TABLE 



force table: 



. byte 


000H, 


0 6BH, 


0 6CH 


. byte 


000H, 


06BH, 


06CH 


. byte 


000H, 


0 6DK, 


073H 


.byte 


000H, 


0 6FH, 


08EH 


. by t e 


000H, 


071H, 


OBEH 


.byte 


000K, 


074H, 


004H 


. byte 


000H, 


076H, 


062H 


. byte 


000H, 


078K, 


ODAK 


. byte 


000H, 


07BK, 


06CH 


. byte 


COOK, 


07EH , 


0 1 EH 


. byte 


000K, 


08CK, 


0E6H 


.byte 


OGOH, 


083H, 


0D6H 


. byte 


000H, 


086K, 


0 9BH 


. byte 


000H, 


089H, 


07 FH 


. byte 


000K, 


08CK, 


084H 


.byte 


000K, 


08FH, 


CASH 


. byte 


000K, 


0 92K, 


0F7H 


.byte 


OGOH, 


096H, 


06SK 


. byte 


000K, 


C 5 AH , 


009H 


.byte 


000K, 


C9DH, 


ODSH 


.byte 


000H, 


0A1K, 


0D2H 


.byte 


000H, 


OA en, 


004H 


.byte 


OGOH, 


OAAH , 


C76K 


. byte 


000K, 


OAFH , 


G27H 


. byte 


OGOH, 


0B4K, 


01CH 


. byte 


000H, 


0B9H, 


05BH 


. byte 


000H, 


OBEH, 


0E5H 


. byte 


000H, 


0C4H, 


0D3H 


.byte 


GOOH, 


OCBH, 


01BH 


.byte 


000H, 


0D1H, 


OCDH 


. byte 


000K, 


0D8H, 


0F4K 


.byte 


GOOH, 


OEOH, 


09CK 


. byte 


000H, 


0E7H, 


01CH 


. byte 


000K, 


OEDH, 


OFFH 


. byte 


OOOH, 


0F5H, 


04FH 


.byte 


000H, 


OFDH, 


015H 


. byte 


001H, 


005H, 


05DH 


.byte 


0C1K, 


CC-EH, 


r. -a c -_■ 


.byte 


00IH, 


017H, 


OArK 


. byte 


OOiH, 


02 IK, 


0D2H 


ir i e 


t «. - H , 


C* r. t 


CHE H 


.byte 


g::h, 


03 8H, 


0 8 OH 


. byte 


0C1H, 


045K, 


03 AH 


.byte 


0C1H, 


C 5 3 K , 


OCSK 


. byte 


OOiK, 


062H, 


01 OH 
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.byte 


* 

001H, 


• 

072H, 


07 DH 


.byte 


001H, 


084H, 


083H 


.byte 


001H, 


098H, 


061H 


.byte 


001H, 


OAEH, 


064H 


. byte 


001H, 


0C6H, 


0E8H 


.byte 


001H, 


0E2H, 


062H 


. byte 


002H, 


001H, 


065H 


.byte 


002H, 


024H, 


OAAH 


.byte 


002H, 


04DH, 


024H 


. byte 


002H, 


07CH, 


010K 


.byte 


OG2K, 


0B3K, 


01BK 


.byte 


002H, 


0F4H, 


094K 


. byte 


003H, 


043K, 


OCiH 


.byte 


003H, 


0A5H, 


071H 


. byte 


004H, 


020H, 


OFCK 


.byte 


004H, 


0C2H, 


038H 


. by t e 


005H, 


09DH, 


06 OH 


.byte 


013H, 


012H, 


ODOK 


f_63: .byte 


013H, 


012H, 


ODOK 


SIM_TABLE: 










. WORD 


OOOOOH 






. WORD 


r. r, r. r. ~> is 






. WORD 


OOOOOH 






. WORD 


OOOOOH 






. WORD 


OOOOOH 






.WORD 


OOOOOH 






.WORD 


OOOOOH 






.WORD 


OOOOOH 






.WORD 


OOOOOH 






.WORD 


OOOOOH 






. WORD 


OOOOOH 






.WORT 


OOOOOH 






. WORD 


OOOOOH 






.WORD 


OOOOOH 






. WORD 


OOOOOH 






.WORD 


OOOOOH 





; Numbers set to zero (proprietary table) 



SPEED TABLE 50: 



. BYTE 


4 0 


. BYTE 


34 


. BYTE 


32 


.BYTE 


30 


.BYTE 


26 


.BYTE 


27 


.BYTE 


25 


.BYTE 


24 


.BYTE 


23 


.BYTE 


21 


.BYTE 


20 


. BYTE 


19 


.BYTE 


17 


.BYTE 


16 


.BYTE 


15 


.BYTE 


13 


.BYTE 


12 


. BYTE 


10 


.BYTE 


8 


.BYTE 


6 


. BYTE 


C 



SPEED_TABLE_60: 

.BYTE 33 
.BYTE 2 9 
. BYTE 21 
. BYTE 2 5 
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